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Hallo, liebe Schneider-Fans, 


über 170 Seiten Inhalt und 200 KByte Software, das ist unser Sonderheft 
für Schneider-Fans. Das ist zwar nicht die Wende“, die Schneider mit 
ihrem neuen Textsystem Joyce publizieren, aber immerhin ein echt gutes 
Nachschlagewerk für den Anwender von CPC-Computem. Natürlich 
haben wir auch Joyce berücksichtigt, mit einem kurzen vorstellenden 
Artikel. Ansonsten über 200 KByte, wie z.B. das Superprogramm Skyplot 
zur Darstellung von allen Himmelsausschnitten, Planetenbahnen, 
Endklassen und Betrachtungswinkel. Die Unterschiede zwischen dem 
CPC 464 und 664 werden deutlich gemacht und ebenso das 512 
Kilobyte-Konzept für die Speichererweiterung des CPC. 

Nach dem Motto: Für jeden etwas, beinhaltet dieses Sonderheft für die 
Hardware-Bastler zwei Super-Projekte, ein 8 Bit-Interface sowie dazu 
passend einen Analog Digital-Wandler zur Eingabe von Analog-Signalen 
in den Schneider-Rechner. 

Für die Anwender bieten wir neben einem Zeichengenerator, dem 
Sprite-Editor und Wordprocessor ein Super-Hardcopy-Programm und vieles 
andere mehr. Auch die Spieler kommen nicht zu kurz mit unseren 
Programmen ..Das fliegende Auge“ und ..Zeno’s Turtle“. 

Allgemeine Tricks und Tips finden Sie im Farbentip. den verborgenen 
Diskettenkommandos, in Computerwanzen und einigen anderen 
nützlichen Ratschlägen. 

Ausführlich wird behandelt, wie man auf dem Schneider CPC Qrafik 
erzeugt — ein Qraflk-Kurs, der von Profis für Anfänger geschrieben wurde. 
Und unsere Titel-Story7 Nun, dazu brauchen wir nicht viel zu sagen, 
denn QEM, das Oberflächenbenutzungsprogramm, ist sicher jedem 
bekannt von Rechnern wie Macintosh, von IBM-Rechnem und zu guter 
letzt von Atari. Aus rechtlichen Qründen haben wir unser QEM, welches 
ähnliche Funktionen bietet, ais Qrafik-Desk-Manager, QDM, für Sie 
abgedruckt. 

Zum Schluß möchte ich noch darauf verweisen, daß alle Programme, 
die dieses Heft enthält, ebenfalls als Datenträger in Kassetten- oder 
Diskettenform vom Vertag bezogen werden können, das soll Ihnen über 
200 KByte abzutippen ersparen. 


Ich wünsche Ihnen viel Spaß beim Lesen und verbleibe 
mit freundlichen Qrüßen 
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SKYPLOT 



▲ Unser Bild zeigt den Originalhimmel mit dem südlichen Orion mit M42 (großer Orionnebel). Aufgenommen Fujichrome 400, 
f = 135 mm, Blende 2,8, 600 s 



▲ So sieht der Himmel auf dem Schneider aus. 
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SKYPLOT 


Mit diesem Programm, das auf 
allen Schneider-Computern (CPC 
464, 664 und 6128) läuft, können 
Sie den Sternenhimmel erfor¬ 
schen. Es zeigt als Sternkarte den 
gesamten Himmel oder vergrö¬ 
ßerte Ausschnitte. Außerdem 
kann der an einem beliebigen Ort 
auf der Erde sichtbare Himmels¬ 
ausschnitt zu einem beliebigen 
Zeitpunkt dargestellt werden. 
Gerade jetzt zu Beginn des Jahres 
ist ja der Komet Halley wieder 
sichtbar; ein Ereignis, auf dessen 
nächste Wiederkehr Sie bis zum 
Jahr 2062 warten müssen. Mit der 
Hilfe dieses Programms können 
Sie seine Bewegung durch die 
Sternbilder verfolgen und die 
günstigsten Beobachtungszeit¬ 
punkte herausfinden. 


Planeten — 
die Geschwister 
der Erde 


Am Himmel sind nicht nur Ster¬ 
ne sichtbar, sondern auch die Pla¬ 
neten des Sonnensystems, von de¬ 
nen Merkur, Venus, Mars, Jupiter 
und Saturn schon leicht zu beob¬ 
achten sind. Sie gleichen auf den 
ersten Blick hellen Sternen und 
sind für den Laien nicht als Plane¬ 
ten zu erkennen. Sie bewegen sich 
aber durch die Sternbilder (wie 
die Sonne auf ihrem Lauf durch 
die Tierkreiszeichen), und sind 
bei einiger Kenntnis der Sternbil¬ 
der leicht daran zu erkennen, daß 
sie an einer Stelle stehen, wo gar 
kein Stern stehen sollte. Wenn Sie 
also einen hellen vermeintlichen 
Stern sehen, der Ihnen unbekannt 
vorkommt, kann Ihnen SKYPLOT 
leicht Auskunft geben, indem Sie 
die Beobachtungszeit und Ihren 
Ort eingeben. Dann wird der ge¬ 
rade sichtbare Himmel mit den 
Planeten abgebildet, und Sie kön¬ 
nen das Objekt identifizieren. 

Umgekehrt kann Ihnen das Pro¬ 
gramm zeigen, wann Sie etwa 
Merkur oder Venus beobachten 
können, da diese Planeten (beson¬ 
ders Merkur, der nahe an der Son¬ 
ne steht) nur zu gewissen Zeiten 
und auch nie die ganze Nacht 
über zu sehen sind. Sie können 
dann den Teil des Himmels, in 


5 DEG 

8 DIM x7. (611) ,y7.(6ll) ,p(20) 

11 DEF FN fr (x)=x-INT(x> 

13 DEF FN dm(x)=SGN(x) * (INT(ABS < x))+1NT <FN fr(A 
BS(x ) )*60)/100+FN fr(ABS(FN fr<x))*60)*60/10 
000) 

14 DEF FN aus!(x)=LEFTS(STR*(ROUND(FN dm<x),4)> 
,8) 

20 DEF FN dg(x*)=SGN(VAL(x*>>*<ABS(VAL(LEFT*<x* 
,LEN(x*>-5) ) ) -WAL (MID* (x*,LEN (x*) —3,2) > /60+V 
AL<MID*(x*,LEN(x*>-l,2))/3600) 

30 DEF FN set* (x*)=x*+STRING*(4—LEN(x*)+INSTR(x 
">,"0") 

40 DEF FN as(x)=ATN(x/SOR(l~x*x)) 

SO DEF FN ac(x)=90—FN as(x) 

60 SYMBOL 255, S<X 1111000,&X 110O1100,ScX 11001100, Sc 
X1111000,0,0,0,0 

70 SYMBOL 240,0,0,0,ScXU10000,ScX10001000,ScX1010 
1000, ScX 10001000, ScX 1110000 

80 SYMBOL 241 , ScX 10001OOO, ScX 11 10000,8tXI0001000,& 
X10001000,& X1110000,ScX100000,& X1110000, ScX 100 
000 

90 SYMBOL 242, ScX1110000, ScX10001000,ScX 10001000,S< 
X10001000,ScXll 10000, ScXlOOOOO, ScX 1110000,ScXlOO 
000 

HO SYMBOL 244, S<X 1111 ,ScX 11 , ScX 101 ,ScX 1111001 ,5tXI00 
01OOO, ScX lOOO 1000, ScX10001000,ScX1110000 
120 SYMBOL 245,ScXl100000,ScX 10010000, ScX 10000, ScX 10 
0100,ScX100100,ScX1111110,ScX100,ScX100 
130 SYMBOL 246,ScX 100000, ScX 1111 1 OOO, ScX 100000, ScX 10 
1100,&X110010,ScXl10010,ScX100100,ScX11 
140 SYMBOL 247, ScX 1110000, ScX 10101000, ScX 100000, ScX 1 
110000,ScX10001000,ScX10101000,ScX10001000,ScX11 
10000 

150 SYMBOL 248,0,0,ScX 10001000, ScX 10101 OOO, ScX 101O1 
000,ScX1110000,ScX100000, ScX 100000 
160 SYMBOL 249,0,8cXlll lOOOO, ScX 10001 OOO,ScX 1000100 
O, ScX 1111 oooo , ScX 1OOOOOOO, ScX 1OOOOOOO,&X11111 oo 

o 

170 SYMBOL 250, ScXl ,ScX 11 , ScX 110, ScX 11110,StX 1111100, 
ScX 11111000,ScX11110000,ScX1100000 
190 SYMBOL 252,ScX 100110,StX 1001001 , ScXlOO 1001 , ScX 10 
01001 ,ScX111110,ScX 1000, ScX lOOO, ScX 1000 
290 mz=— 1: sh=—1: pz=— 1: ka*="S": bm=0: GOSUB 6000: da 
y=7:month=7:year=1959:zeit-12.5:phi=51.28333 
33:zeit*="12.30":phi*="51.17":GOSUB 3100:GOS 
UB 4100 

295 MODE 2:BORDER 13:INK 1,0:INK 0,13:PEN 1:PAPE 
R O 

300 GOTO 5000 

330 IF INSTR(x *,".")=0 THEN x$=x$+"." 

340 x=FN dg(FN set*(x*)) 

350 RETURN 

1000 REM Einstellung Messier—Objekte 
1010 INPUT "Messier-Objekte darstellen (J/N) ";a* 
:IF UPPER*(a*)="J" THEN mz=-l ELSE mz=0 
1020 INPUT "Sterne nach Helligkeiten oder Spektra 
lklassen darstellen (H/S) ";a*:sh=UPPER*(a*) 
= "H" 

1030 INPUT "Planeten darstellen (J/N) ";a*:IF UPP 
ER*(a*)="J" THEN pz=-l ELSE pz=0 
1900 RETURN 

2000 REM Einstellen der Himmelsdarstellung 
2010 INPUT "Sichtbarer Himmelsausschnitt (S), Pol 
arkarte <P), Aequatorialkarte (Q> oder A 
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dem ein Planet steht, als Karte ver¬ 
größert darstellen und die Position 
in einem Sternbild bestimmen. Ein 
schönes Beispiel ist der 7, Juli 
1959, wo ein äußerst seltenes Him¬ 
melsereignis stattfand: Der helle 
Stern Regulus (der hellste im 
Sternbild Löwe) wurde damals von 
dem Planeten Venus bedeckt. Da 
die Planeten nur sehr kleine 
scheinbare (d.h. von der Erde aus 
sichtbare) Durchmesser haben, 
sind solche Sternbedeckungen 
sehr selten (meistens laufen die 
Planeten mehr oder weniger weit 
an sichtbaren Sternen vorbei).Wie 
selten solch ein Ereignis ist, kön¬ 
nen Sie daran ersehen, daß diese 
Bedeckung zum letzten Mal am 11. 
9. 1128 stattfand. 

Wenn ein Planet vor einem Stern 
steht, wird (im Modus 0) ein blin¬ 
kender Punkt dargestellt. Sie soll¬ 
ten dann jedoch einen Ausschnitt 
berechnen lassen, da meist nur 
wegen der mangelnden Auflösung 
der Planet vor dem Stern er¬ 
scheint. 


die lateinische und die deutsche 
Bezeichnung ausgegeben (z.B. 
UMA, Ursa Major, Großer Bär). 
Damit Sie die Linien auch wieder 
entfernen können, werden sie 
durch erneute Eingabe des Stern¬ 
bildes wieder gelöscht (die von ih¬ 
nen verdeckten Sterne werden 
wieder sichtbar). Beim Zeichnen 
der Linien über die Sterne hinweg 
können im Modus 0 blinkende Far¬ 
ben auftreten, die aber beim Lö¬ 
schen wieder verschwinden, 

Geben Sie auf die Frage nach 
dem zu zeichnenden Sternbild 
„Alle" ein, werden alle sichtbaren 
Sternbilder gezeichnet; durch 
„Hardcopy“ wird eine solche er¬ 
zeugt, und durch „Ende“ kommen 
Sie zurück ms Hauptmenue. 

Außerdem können alle Objekte 
aus der Messier-Liste geplottet 
werden (für die Messier-Objekte 
siehe weiter unten). Dazu muß nur 
die Nummer des Nebels oder 
Sternhaufens (von 1 bis 109) einge¬ 
geben werden. Wenn das Objekt 
auf dem Bildschirmausschnitt dar¬ 
stellbar ist, wird seine Position 
durch ein Kreuz markiert. Außer¬ 
dem wird die Art des Objektes, 
seine Helligkeit in Größenklassen 
und gegebenenfalls der Eigenna¬ 
me angezeigt. Durch erneute Ein¬ 
gabe der Messier-Nummer wird 
das Kreuz wieder entfernt. 

Die Helligkeiten von Sternen 
und anderen Objekten werden in 
der Astronomie in Größenklassen 


Schleifen 
am Himmel 

Wie schon gesagt wurde, bewe¬ 
gen sich die Planeten scheinbar 
zwischen den Sternen. Diese Be¬ 
wegungen kommen dadurch zu¬ 
stande, daß sie selbst und die Er¬ 
de um die Sonne laufen, und zwar 
mit unterschiedlicher Geschwin¬ 
digkeit. Je näher ein Körper an der 
Sonne ist, desto schneller bewegt 
er sich. Da die Erde bei bestimm¬ 
ten Gelegenheiten (bei sogenann¬ 
ten Oppositionen oder Konjunktio¬ 
nen) von der Sonne aus gesehen in 
einer Linie mit dem Planeten steht, 
überholt sie gewissermaßen den 
Planeten auf der Innenbahn — 
oder sie wird von einem Planeten 
überholt, wenn es der Merkur 
oder die Venus ist. Normalerweise 
bewegen sich die Planeten und 
auch die Sonne zwischen den Ster¬ 
nen in einer Richtung, man nennt 
dies rechtläufig. Bei den eben 
angesprochenen Gelegenheiten 
aber werden die Planeten rück¬ 
läufig und bewegen sich dann in 
der anderen Richtung. Da die Pla¬ 
neten außerdem nicht in einer 
Ebene um die Sonne laufen, ent¬ 
steht bei einer solchen Rückläufig¬ 
keit meist eine Schleife, die durch 
die scheinbare Bewegung des Pla¬ 
neten zwischen den Sternen ent¬ 
steht. 


Es können die Bewegungen al¬ 
ler Planeten, der Sonne und des 
Kometen Halley über beliebige 
Zeiträume dargestellt werden. 
Auch die unterschiedlichen Ge¬ 
schwindigkeiten der um die Sonne 
laufenden Körper werden so deut¬ 
lich. 

88 sichtbare 
Sternbilder 

Alle international festgelegten 
Sternbilder sind enthalten; es kön¬ 
nen also auch Himmelsansichten 
des Südhimmels dargestellt wer¬ 
den: z.B. kann der Sternhimmel am 
Südpol geplottet werden. Damit 
Sie Sternbilder auch finden und 
erkennen, kann nach der Berech¬ 
nung einer Karte oder eines Him¬ 
melsanblickes der Name eines 
Sternbildes eingegeben werden. 
Die (am Himmel natürlich nicht 
sichtbaren) Sternbildhilfslimen, 
durch die die Bilder leichter er¬ 
kennbar und merkbar werden, 
werden dann gezeichnet. Dabei 
kann die international standardi¬ 
sierte Abkürzung des Bildes (be¬ 
stehend aus drei Buchstaben), der 
lateinische oder der deutsche Na¬ 
me eingegeben werden. Ist die 
Eingabe richtig und das Sternbild 
vollständig auf dem Ausschnitt, so 
werden die Hilfslinien gezeichnet. 
Dabei wird auch die Abkürzung, 



Der Stemen- 
himmel vom 
Nordpol gesehen 
bis 30° 
Deklination 


Derselbe Sternen¬ 
himmel wie oben 
nur ohne 
Sternbilder 
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angegeben. Ein kleinerer Wert 
entspricht dabei einem helleren 
Objekt. Die schwächsten Sterne, 
die Sie ohne optische Hilfsmittel 
sehen können, haben etwa 5 bis 6 
Größenklassen. Hellere Sterne ha¬ 
ben entsprechend weniger, der 
Polarstern hat etwa den Wert 2.1. 
Sehr helle Sterne müssen mit ne¬ 
gativen Zahlen belegt werden; der 
hellste Stern des Himmels, Sirius 
im Großen Hund, hat -1.4 Größen¬ 
klassen. Wenn Sie also die Hellig¬ 
keit eines Nebels oder Sternhau¬ 
fens wissen, können Sie davon aus¬ 
gehen, daß Sie sie je nach Sichtver¬ 
hältnissen dann sehen können, 
wenn sie heller als 5-6 Größen¬ 
klassen sind. Hier noch eine klei¬ 
ne Tabelle der Planetenhelligkei¬ 
ten, die aufgrund ihres teilweise 
sehr stark wechselnden Abstan¬ 
des von der Erde kräftig schwan¬ 
ken: 

Merkur:+ 3 bis -1.5 Größenklas¬ 
sen (schwer zu beobachten, da nur 
kurz vor Sonnenaufgang oder 
nach -Untergang zu sehen) 

Venus: -3.9 bis -4.7 (sehr hell, 
Morgen- oder Abendstern) 

Mars: +1.8 bis -2.9 (im Juli 1986 
sehr hell: -2.6 Größenklassen) 
Jupiter: -1.7 bis -2.9 
Saturn: + 1.3 bis -0.5 
Uranus: um 5.5 (ohne Feldste¬ 
cher kaum zu sehen) 

Neptun: um 7.9 

Pluto: um 13.7 (also nur mit recht 
großen Teleskopen zu sehen) 


Die Farben 
der Sterne 


Normalerweise werden die Ster¬ 
ne gemäß ihrer Helligkeit geplot- 
tet: Im Modus 1 als verschiedene 
Symbole und im Modus 0 als un¬ 
terschiedliche Blaustufen (deshalb 
blau, weil davon die meisten Hel¬ 
ligkeitsstufen auf dem Schneider 
vorliegen), Wenn Sie das Licht aus¬ 
schalten (Computerfans sollen ja 
ohnehin meist nachts arbeiten, wie 
ein Gerücht wissen will) und im 
Mode 0 bei einem Farbmonitor die 
Helligkeit so weit herabdrehen, 
daß Sie die schwächsten Sterne 
gerade noch erkennen, haben Sie 
ein sehr natürliches Abbild des 
Himmels. 

Sie können aber auch die Far¬ 
ben der Sterne darstellen; der 
Fachmann spricht hier von Spek¬ 
tralklassen. Die Sterne sind nicht 
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usschnitt aus Aequatorialkarte CA) ";a$:ka$— 
UPPERS<a$> 

IF ka$="S" THEN RETURN 
IF ka$<>"P" THEN 2100 

INF'UT "Nord— oder Suedpol als Kartenmitte (N 
/S) ";a£:IF UPPER*CaS)="S" THEN mitte=-90 EL 
SE mitte =90 

INF'UT "Deklination des Kartenrandes ";rand:I 

F ABS(rand)>90 THEN 2040 

RETURN 

IF ka*="Q" THEN 1=24:r=0:u=-90:o=90:dr=r-l:d 
d=a-u:rm=l+dr/2:dm=u+dd/2:RETURN 
IF ka$<>"A" THEN 2010 

INPUT "Grenzen des Kartenausschnittes: links 
, rechts, unten, oben (hh.mm bzw. gg.mm) ";1 
S,rS,uS,oS 

x$=li:GOSUB 330:1 =x :x$=r$:GÜSUB 330:r=x:x$=o 
$:GOSUB 330:o=x:x$=u$:GOSUB 330:u=x 
dr=r—1:dd=o-u:rm=l+dr/2:dm=u+dd/2 
IF r>1 THEN h=l:l=r:r=h 
IF u>o THEN h=u:u=o:o=h 

v=ABS(dr*15/dd/1.66666667):IF ABS(v-1)>0.001 
THEN IF v<1 THEN r=rm-dd*0.833333333/15:1 -r 
m+dd*0.833333333/15:GOTO 2125 ELSE o=dm+dr#l 
5/3.33333333:u=dm-dr*15/3.33333333:GOTO 2125 
dr=r—1:dd=o-u:rm=l+dr/2:dm=u+dd/2 
RETURN 

REM Eingabe von Datum und Uhrzeit 

INPUT "Datum (Tag, Monat, Jahr) ";day,month, 

year:IF year<1583 OR year>2499 THEN 3010 

INPUT "Uhrzeit (mittlere Ortszeit, Format hh 

.mmss) ";x$:zeit$=x$:GOSUB 330:zeit=x 

x=0.002737897:y=6.67011611:o=month + l:j=year: 

IF o<4 THEN o=o+12:j=j-l 

nt=INT(30.6*o)+INT(365.25*j)+day 

IF nt<694098 THEN nt=nt+l 

IF nt<657574 THEN nt=nt+l 

IF nt<621050 THEN nt=nt+l 

IF nt<584526 THEN nt=nt+l 

IF nt>=767148 THEN nt=nt-l 

IF nt>=803672 THEN nt=nt-l 

IF nt>=840196 THEN nt=nt-l 

n=nt—722893:z=n*24*x+(x+1)*zeit+y:z=z/24:sz= 
(z-lNT(z))*24 

nt=nt+zeit/24:jd=nt+l720981.46:dnt=nt 
RETURN 

REM Eingabe des Ortes 

INPUT "Geographische Breite in Grad, noerdli 
ch: positiv (Format gg.mmss) ";x$:phi$=x$:GO 
SUB 330:phi=x 
cp=COS(phi):sp=SIN(phi) 

RETURN 
REM Menue 
CLS 

PRINT "SKYPLOT" 

PRINT "FTCP 1980 / 1985" 

PRINT 

Himmelsdarstellung (Kartenart)" 
Stern— und Objekttarben" 

Datum und Uhrzeit" 

Ort" 

Status-In-f ormation" 

Karte darstellen" 

Bewegung eines Planeten" 
Bildschirmmodus aendern" 


PRINT "H: 
PRINT "S: 
PRINT "D: 
PRINT 
PRINT 
PRINT 
PRINT "E: 
PRINT "B: 


"O: 

"I: 

"K: 
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nur unterschiedlich hell, sondern 
sie haben auch recht unterschied¬ 
liche Oberflächentemperaturen, 
wodurch ihre Farbe bestimmt 
wird. Ähnlich wie ein glühendes 
Stück Metall, das bei steigenden 
Temperaturen von Rot über Oran¬ 
ge und Gelb eine weißglühende 
Farbe annimmt, verhalten sich 
auch die Sterne. Die kühlsten Ster¬ 
ne haben eine rote Farbe, bei zu¬ 
nehmenden Temperaturen wer¬ 
den sie orange, gelb, gelbweiß 
und schließlich blauweiß und 
bläulich. Die Sonne ist an der 
Oberfläche ca. 5500 Grad Celsius 
warm und hat eine gelbe Farbe 
(Spektraltyp G); rote Sterne des 
Typs M haben etwa 2500-4000 
Grad und blaue Sterne mit dem 
Spektraltyp O oder W 50000 Grad 
oder mehr. Diese Farben können 
bei den hellen Sternen auch schon 
mit bloßem Auge wahrgenommen 
werden, bei den schwächeren ist 
ein Feldstecher oder ein Teleskop 
nötig (dies liegt daran, daß das 
menschliche Auge bei niedrigen 
Lichtstärken Farben nicht mehr 
unterscheiden kann: Nachts sind 
alle Sterne grau...). 

Wenn Sie also statt der Helligkei¬ 
ten der Sterne die Farben bzw. die 
Spektralklassen sehen wollen, 
können Sie dies veranlassen (Me- 
nuepunkt ,,S"). Der Verlauf der 
Milchstraße kann so leichter er¬ 
kannt werden, da sich hier in der 
galaktischen Ebene die jungen 
und heißen Sterne der Spektral¬ 
klassen O und B häufen. Die Iden¬ 
tifizierung der Sternbilder ist dann 
allerdings erheblich schwieriger, 
da so alle Sterne gleich hell er¬ 
scheinen. Eine Hardcopy sollten 
Sie übrigens nur im Modus 1 er¬ 
zeugen, da der Drucker keine Far¬ 
ben darstellt und die Sternsymbo¬ 
le dann alle gleich erscheinen. 


Der Weltraum — 
unendliche Weiten... 


Nein, wir schreiben nicht das 
Jahr 2100, obwohl Sie den Sternen¬ 
himmel dieses Jahres sehr wohl 
berechnen können. Es soll viel¬ 
mehr ein kleiner Exkurs in die Tie¬ 
fen des Universums folgen: 

Die Erde befindet sich mit dem 
Sonnensystem in einer Galaxis, 
von denen es im Universum ca. 100 
Milliarden gibt. Diese Galaxis, ge¬ 
nannt Milchstraße, enthält etwa 


5070 PRINT "Z: Zeichenerklaerung" 

5072 PRINT "P: Programmende" 

5090 PRINT 

5090 INPUT af:a$=UPPER$(a$) 

5092 nt=dnt 

5095 IF a$="I" THEN 6QSUB 8000 ELSE IF a*="B" THE 
N bm=l-bm ELSE IF a$="E" THEN GDSUB 9000 ELS 
E IF a*="Z" THEN GDSUB 12000 
5100 IF a*="P" THEN END ELSE IF a$="S u THEN GDSUB 
lOOO ELSE IF a*="H" THEN GOSUB 2000 ELSE IF 
a$="D" THEN GDSUB 3000 ELSE IF a^^'O" THEN 
GDSUB 4000 ELSE IF a$="K" THEN hc=0:GOSUB 60 
00 

5110 GOTO 5000 

6000 MODE bmsINK 0,0:IF bm=0 THEN INK 1,23:INK 2, 
11:INK 3,2:INK 4,1:INK 5,6:INK 6,24:INK 7,26 
:INK 8,25:INK 9,15:INK 10,4:INK 11,9:INK 12, 
13:INK 13,7:INK 14,2,6 ELSE INK 1,13:INK 2,4 
:INK 3,9 

6001 IF year=0 THEN RETURN 

6002 WINDOW #0,1,80,1,24:WINDOW #1,1,80,25,25:PRI 
NTCHR*(23);CHR$(O); 

6005 IF bm=0 THEN h-f = 12 ELSE h-f = l 

6010 IF ka$="Q" DR ka$= H A" THEN BDRDER O:ORIGIN 3 
20,208: PEN hf:PEN #l,h-f:PAPER 0:PAPER #1,0:C 
LS ELSE BORDER 13:ORIGIN 444,208:PEN 0:PEN # 
1,0: PAPER h-f: PAPER #1 , h-f : CLS: FOR i=0 TO 192 
STEP 2:x=SQR(36864—i*i>:MOVE -x,-i:DRAW x,-i 
,O:MOVE —x,i:DRAW x,i,0:NEXT 
6020 i=1:CLS #1 
6025 IF bm=l THEN sh=-l 
6030 IF mz THEN 6200 
6100 RESTORE 60000 
6110 READ ra$,de*,h*,typ* 

6115 IF typ$="STERNENDE" THEN 6300 

6120 IF sh THEN c=INT(VAL(h$)+0.5):IF c<l THEN c= 
1 ELSE IF c>4 THEN c=4 

6130 IF NOT sh THEN IF typ$="0" OR typ*="X" DR ty 
p$=*'W" THEN c=3 ELSE IF typ*= M B" THEN c=2 EL 
SE IF typ$="A" THEN c=7 ELSE IF typS^'F" THE 
N c=8 ELSE IF typ$='‘G" THEN c=6 ELSE IF typ$ 
="K" THEN c=9 ELSE c=5 
6140 x$=ra$:GOSUB 330:ra=x 
6150 x*=de$:GOSUB 330:de=x 
6155 g=c 
6160 GOSUB 7000 

6165 x 7. (i ) =x : yV. (i ) =y: i =i + 1: PRINT #l,612-i 

6170 GOTO 6110 

6200 RESTORE 50000 

6210 READ nr,ra$,de$,h$,typ$ 

6215 IF typ*="ENDE" THEN 6100 

6220 IF typ*="K“ OR typ*="G" THEN c=ll ELSE c=10 

6230 xt=ra$:GOSUB 330:ra=x 

6240 >:$=de$: GOSUB 330:de=x 

6245 g-4 

6250 GDSUB 7000 

6260 GOTO 6210 

6300 11=1:IF NOT pz THEN 6880 

6310 FOR pl=0 TO 10:IF pl=3 THEN 6400 

6315 GOSUB 62000:1=11 

6320 g=4:c=13:GOSUB 7000:IF x=-1000 THEN 6400 

6325 IF bm=l THEN PLOT x+2,y+2:PL0T x+2,y-2:PL0 
T x-2,y+2:FL0T x-2,y-2 

6330 PLOT -1000,0,hf:PRINT CHR*(23);CHR*(3);:TA 
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200 Milliarden Sterne. Es gibt we¬ 
sentlich kleinere, aber auch er¬ 
heblich größere Galaxien als un¬ 
sere Milchstraße im Kosmos. Die 
Sonne ist darin ein recht durch¬ 
schnittlicher Stern, die auf ein Le¬ 
ben von bisher etwa 5 Milliarden 
Jahren herabblicken kann und 
auch noch etwa so viel vor sich hat. 
Besagte Milchstraße hat man sich 
nun als eine flache Scheibe (ähn¬ 
lich einer ziemlich platten fliegen¬ 
den Untertasse) mit einer zentra¬ 
len Verdickung vorzustellen, in 
der sich die Sonne ziemlich weit 
am Rand befindet (die Milchstraße 
hat etwa einen Durchmesser von 
100000 Lichtjahren, und die Sonne 
ist ca. 30000 Lichtjahre vom Zen¬ 
trum entfernt). Diese flache Schei¬ 
be kann als leuchtendes, nebliges 
Band besonders am Sommerhim¬ 
mel beobachtet werden. Im Som¬ 
mer blickt man etwa in Richtung 
Zentrum, wo dieses Band beson¬ 
ders hell ist. 

Nun sind in unserer Milchstraße 
nicht nur viele Sterne (von denen 
der nächste im Sternbild Zentaur 
etwa 4.3 Lichtjahre entfernt ist), sie 
enthält auch viele für den Him¬ 
melsbeobachter äußerst interes¬ 
sante Objekte: (offene) Sternhau¬ 
fen, Anhäufungen von Sternen mit 
meist fehlender Struktur; und be¬ 
sonders Anhäufungen von Gas 
oder Staub zwischen den Sternen, 
sogenannte Nebel. Diese Nebel 
werden von Sternen beleuchtet 
und sind im Feldstecher oder Te¬ 
leskop als nebel- oder wolkenähn¬ 
liche Gebilde (daher ihr Na¬ 
me) lohnende Beobachtungsobjek¬ 
te. Sie können auch Überreste ex¬ 
plodierter Sterne sein, sie werden 
dann als planetarische Nebel be¬ 
zeichnet. 

Diese Objekte haben die Ge¬ 
meinsamkeit, daß sie abgesehen 
von ganz wenigen Ausnahmen un¬ 
gefähr in der Ebene der Milchstra¬ 
ße stehen. Deshalb kann der Ver¬ 
lauf der Milchstraße auch an ih¬ 
nen verfolgt werden. Dagegen 
gibt es noch andere Objekte, die 
sogenannten Kugelsternhaufen, 
die sich nicht direkt in der Ebene 
unserer Galaxis befinden. Sie bil¬ 
den vielmehr eine lockere An¬ 
sammlung um die Milchstraße, 
das sogenannte Halo. Zwar befin¬ 
den sich einige von ihnen in Rich¬ 
tung Milchstraßenzentrum, das 
sich im Sternbild Schütze befindet, 
doch sind die meisten von ihnen ir¬ 
gendwo am Himmel verteilt. Wie 
der Name schon sagt, handelt es 
sich um kugelförmige, sehr sym¬ 
metrische Ansammlungen von 


G: MOVE x +8, y+8: PR I NT CHR-T (240+pl ) ; : TAGOFF: 
PRINT CHRS(23);CHR*(0); 

6400 NEXT pl 

6800 IF ka*<>"S" THEN 6800 
6810 LGCATE 1,1 

6830 PRINT USING "##. " ; day,month; : PRINT USING *’## 
##";year 

6840 PRINT LEFT$ (z ei t $, 5) ; "h MOZ" 

6860 PRINT CHR$(252>;"=";LEFT$(phi*,6);CHR*(255) 
6880 CLS #1 

6900 IF beweg THEN RETURN 
6905 IF hc THEN GOSUB 40000 

6990 GOSUB 10000:M0DE 2:BORDER 13:INK 1,0:INK 0,1 
3:PEN 1:PAPER O:RETURN 

7000 REM Rektaszension und Deklination in Bildsch 
irmkoordinaten wandeln und Punkt setzen 
7005 x=—1000 

7010 IF ka$="Q" OR kaS="A" THEN x = (ra-rm) /dr*638: 

y=(de-dm)/dd*380:GOTO 7900 
7020 IF ka*="S" THEN 7100 

7030 IF mitte=90 AND de<rand OR mitte=-90 AND de> 
rand THEN RETURN 

7040 r=ABS((mitte-de)/(mitte—rand))*190:w=-ra*15* 
SGN(mitte):x=COS(w)*r:y=SIN(w)*r 
7050 GOTO 7900 

7100 IF de<phi-90 OR de>90+phi THEN RETURN 
7105 st=(sz-ra)/24:st-360*(st-INT(st)):sd=SIN(de) 

:cd=COS(de):cs=COS(st):ho=FN as(sd*sp+cd*cs* 
cp):IF ho<0 THEN RETURN 

7110 az=FN ac(-(sd*cp-cd*cs*sp)/COS(ho)):IF st>18 
O THEN az=360—az 

7120 r=190*(90—ha)/90:w=az-90:x=COS(w)*r:y=SIN(w) 
*r 

7900 IF bm=l THEN IF c=l 1 THEN c=3 ELSE IF c=10 T 
HEN c=2 ELSE c=l 

7905 x-INT(x+0.5):y=INT(y+0.5):IF ABS(x)>320 OR A 
BS(y)>192 THEN x=—1000:y=0:RETURN ELSE y=y+y 
MOD 2:IF c=13 AND TEST(x,y)<>0 THEN IF bm=0 
THEN PLOT x,y,14:RETURN ELSE RETURN 
7908 PLOT x,y,c:IF g=4 OR bm=0 THEN RETURN 
7910 PLOT x+2,y:PLOT x-2,y:PL0T x,y+2:PL0T x,y-2: 
IF g=3 THEN RETURN 

7920 PLOT x +2,y+2:PLOT x~2,y+2:PLOT x+2,y-2:PL0T 
x—2,y—2:IF g=2 THEN RETURN 
7930 PLOT x+4,y:PLOT x-4,y:PL0T x,y+4:PL0T x,y-4 
7990 RETURN 

8000 REM Anzeige Status-In-farmatian 
8010 PRINT"Geographische Breite: ";phi$;CHR*(255) 
8020 PRINT"0rtszeit: 

8030 PRINT"Tag: 

8040 PRINT"Monat: 

8050 PRINT"Jahr: 

8052 PRINT"Sternzeit: 

8054 PRINT"Julianisches Datum: 

8055 PRINT"Bi1dschirmmadus: 

8060 IF mz THEN PRINT"Mit"; ELSE PRINT"Ghne"; 

8070 PRINT" Messier-Objekte"; 

8075 IF mz THEN PRINT"n" ELSE PRINT 
B080 PRINT"Sterne nach 

8090 IF sh THEN PRINT"Hel1igkeiten" ELSE PRINT"Sp 
ektralklassen" 

8100 IF pz THEN PRINT"Mit"; ELSE PRINT"Ohne"; 

8110 PRINT" Planeten" 

8120 PRINT"Kartenart: ": 


";zeit$;"h" 

" 5 day 
";manth 
";year 

";FN aus!(sz) 
Jd 
"; bm 


"h" 
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Sternen, die auch im Feldstecher 
schon als neblige Fleckchen gese¬ 
hen werden können. 

Schließlich stellt das Programm 
noch Galaxien dar, die ebenfalls 
mit kleinen Instrumenten beob¬ 
achtet werden können. Eine die¬ 
ser Galaxien, der Große Andro¬ 
medanebel (im Sternbild Andro¬ 
meda), kann bei guten Sichtver¬ 
hältnissen schon mit bloßen Augen 
gesehen werden, mit dem Feldste¬ 
cher ist er sehr auffällig als längli¬ 
ches Wölkchen sichtbar. Er ist ca. 
2.3 Millionen Lichtjahre entfernt 
und stellt somit das entfernteste 
Objekt dar, das der Mensch ohne 
Hilfsmittel sehen kann. Da das 
Licht entsprechend der Entfer¬ 
nung 2.3 Millionen Jahre für seine 
Reise von dieser Galaxis benötigt, 
sehen wir bei seinem Anblick tief 
in die Vergangenheit. Alle ande¬ 
ren auf den Ausschnitten darge¬ 
stellten Galaxien sind noch weiter 
entfernt, teilweise bis zu 50 Millio¬ 
nen Lichtjahren (ein Lichtjahr sind 
ca. 9.46 Billionen km). 

Da die Erdachse nicht senkrecht 
zur Müchstraßenebene steht, zeigt 
das Band der Milchstraße auf der 
Übersichtskarte des Himmels 
(Äquatorialkarte) eine etwas selt¬ 
same Form: Sie beginnt oben links 
etwa in der Ecke, läuft dann 
schräg nach unten rechts, erreicht 
den tiefsten Punkt noch vor der 
Mitte der Karte, schwingt sich 
dann wieder aufwärts und erreicht 
etwa die rechte obere Ecke. Sie 
sollten einmal auf der Gesamtkar¬ 
te folgende Sternbilder darstellen 
lassen, durch die sich die Milch¬ 
straße zieht: 

Kepheus, Schwan, Adler, Schüt¬ 
ze, Skorpion, Zentaur, Kreuz des 
Südens, Schiffssegel, Schiffsheck, 
Großer Hund, Einhorn, Fuhrmann, 
Perseus und Kassiopeia. 

Die Sternhaufen, Nebel und Ga¬ 
laxien stammen aus der sogenann¬ 
ten Messier-Liste, einem Katalog 
von Objekten, die der französi¬ 
sche Astronom gleichen Namens 
im 18. Jhd. zusammenstellte. Da 
Messier nur von der Nordhalbku¬ 
gel aus beobachtete, sind ab einer 
bestimmten Grenze am Südhim¬ 
mel keine Messier-Objekte mehr 
verzeichnet; jedoch gibt es dort 
noch etliche interessante Beob¬ 
achtungsobjekte. Die Koordinaten 
und Daten der Sterne stammen 
aus dem „Handbuch der Sternbil¬ 
der“ von H. Vehrenberg und D. 
Blank (Treugesell-Verlag), einem 
für die praktische Beobachtung 
sehr empfehlenswerten Werk. 


8130 IF ka$= ,, S" THEN PRINT”sichtbarer Himmel" ELS 
E IF ka*="P" THEN PRINT"Polarkarte" ELSE IF 
ka*="Q" THEN PRINT"Aequatorialkarte" ELSE PR 
INT”Ausschnitt aus Aequatorialkarte" 

8140 IF ka*<>"P" THEN 8200 
8150 PRINT"Ausschnitt vom 

8160 IF mitte=90 THEN PRINT"Nord"; ELSE PRINT"Sue 
d"; 

8170 PRINT"pol bis ";FN aus$(rand);CHR*(255);" De 
klination" 

8180 GOTO 10900 

8200 IF ka*<>"A" THEN 10900 

8210 PRINT"Rektaszension von ";FN aus$(l);"h bis 
";FN aus*(r);"h,”:PRINT "Deklination von ";F 
N aus*(u);CHR*(255);" bis " ; FN aus*(o);CHR*( 
255) 

8220 GOTO 10900 

9000 REM Bewegung eines Planeten 

9005 IF ka*="S" THEN PRINT "Nicht bei Kartenart: 

Sichtbarer Himmel":GOTO 10900 
9010 PRINT:INPUT "Welches Objekt (O: Sonne, 1: Me 
rkur, 2: Venus, 4: Mars, 5: Jupiter, 6: Satu 
rn, 7: Uranus, 8: Neptun, 9: Pluto, 10: Kam 
et Halley) ";pl 

9020 pl=INT(pl):IF pl>10 OR pl<0 THEN 9010 
9030 IF pl=3 THEN PRINT:PRINT "Nicht die Erde - d 
a stehen Sie doch drauF!":GQTQ 9010 
9100 PRINT:INPUT "Zeit zwischen zwei Berechnungen 
in Tagen ";dt 

9110 PRINT:INPUT "Anzahl der Berechnungen ";ab 

9115 beweg=-l:11=1:planet=pl 

9120 GOSUB 6000 

9125 beweg=0:pl=planet 

9130 GOSUB 62000 

9135 PRINT #l,a*;:IF pl=0 THEN PRINT #l,"n"; 

9137 PRINT #1,"bahn"; 

9140 1=1l:c=12:g=4:GOSUB 7000 

9150 f 1 = (>:<>-1000) :xa=x:ya=y 

9200 FOR be=2 TO ab 

9210 nt=nt+dt 

9220 GOSUB 62000 

9225 1=11:c=12:g=4:GOSUB 7000 

9230 IF -fl AND x0-1000 AND ABS (>;-xa) <300 THEN 
MOVE xa,ya:DRAW x,y 
9240 LOCATE #1,12,1:PRINT #l,ab-be 
9300 -f 1= (x< >-1000) : xa=x: ya=y 

9310 NEXT be 
9320 GOTO 6880 

10000 REM Sternbi 1 dhi 1-fsl inien 

10005 WINDOW SWAP 0,1:PRINT CHR*(23);CHR*(1); 

10010 INPUT"Sternbi1d:",a*:IF a*="" THEN 10010 

10020 a*=UPPER*(a*):IF a*="ENDE" THEN WINDOW SWAP 
1,0:RETURN 

10022 IF a*=”HARDCOPY" THEN CLS:GOSUB 40000:GOTO 1 
0010 

10024 IF VAL <a*)>0 THEN GOSUB 11000:GÜSUB 10900:G0 
TO 10010 

10030 RESTORE 30000:IF a*=“ALLE" THEN READ b*,b*,b 
*:abk*="AND":GOTO 10105 

10040 READ b*:IF b*="ENDEBILDER" THEN PRINT"Sternb 
ild unbekannt":GOSUB 10900:GOTO 10010 

10050 IF LEFT*(b*,1)="*" THEN abk*=RIGHT*(b*,3):RE 
AD latein*,deutsch* 

10060 IF a*Oabk* AND a*< HJPPER* (1 atei n*) AND a*< > 
UPPER*(deutsch*) THEN 10040 
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Die Bedienung 


Wichtig für den Gebrauch ist 
die Kenntnis der astronomischen 
Koordinaten: Ein Punkt auf der Erd¬ 
oberfläche wird durch seine geo¬ 
graphische Länge und Breite (die 
auch eingegeben werden muß) 
bestimmt, am Himmel geschieht 
dies ganz ähnlich. Die eine Rich¬ 
tung parallel zum Himmelsäquator 
(der Projektion des Erdäquators 
auf den Himmel) wird durch die 
Rektaszension bestimmt (entspre¬ 
chend der Länge), rechtwinklig 
dazu wird die Deklination gemes¬ 
sen (entsprechend der Breite). Die 
Rektaszension wird in Zeitmaß, al¬ 
so von 0 Uhr bis 24 Uhr (entspre¬ 
chend 0 bis 360 Grad), gemessen, 
die Deklination genau wie die geo¬ 
graphische Breite von -90 Grad 
(Südpol) über 0 Grad (Äquator) bis 
zum Himmelsnordpol bei 90 Grad. 
Die Rektaszension läuft dabei auf 
der Gesamt- und den Ausschnitt¬ 
karten von rechts nach links, die 
Deklination von unten nach oben. 
Wichtig ist, daß Sie bei einem Aus¬ 
schnitt die linke Grenze (die erste 
Zahl) immer größer als die rech¬ 
te eingeben, z. B. als Eingabe 
12,8,0,36. Dann wird der Sternhim¬ 
mel mit der Rektaszension von 12 
bis 8 Uhr und der Deklination von 
0 bis 36 Grad gezeichnet. 

Bei dieser Art der Darstellung 
des Himmels treten an den Polen 
große Verzerrungen auf; deshalb 
werden auch polnahe Sternbilder 
wie der Kieme Bär (bzw. Wagen) 
mit dem Polarstern nicht gezeich¬ 
net; sie wären kaum zu erkennen. 
Darum gibt es für die Umgebung 
der beiden Pole eine besondere 
Darstellung, ähnlich Karten von 
den Polen der Erde. Dabei bildet 
die Karte einen kreisförmigen 
Ausschnitt mit dem Pol in der Mit¬ 
te; die Deklination läuft radial vom 
Pol weg und die Rektaszension 
wird auf einem Kreis um den Pol 
gemessen. Die Nullmarke der 
Rektaszension ist dabei rechts; 
beim Nordpol läuft die Rektaszen¬ 
sion im Uhrzeigersinn um den Pol, 
während sie beim Südpol entge¬ 
gen dem Uhrzeigersinn läuft. Der 
Rand der Karte wird durch eine 
bestimmte Deklination begrenzt, 
die Sie eingeben können. Wenn 
Sie die Umgebung des Nordpols 
darstellen, sollten Sie als Rand kei¬ 
ne südlichen (d.h. negativen) De¬ 
klinationen wählen, die Verzerrun¬ 
gen werden dann zu groß (ent¬ 
sprechend für den Südpol). Ein 


10100 IF ka*="Q" QR ka*="A" THEN IF abk*="UMI" OR 
abk*="PEG" OR abk*="PSC" OR abk*="SCL" OR ab 
k*="TUC" OR abk*="OCT" THEN 10600 
10105 i=1 

10107 READ b*: p (i ) =VAL (b*) : IF x7. ( ABS (p < i ) ) MOD 100 
0>=-1000 THEN 10600 ELSE IF p(i>>1000 THEN 1 
0108 ELSE i=i+l:GOTO 10107 

10108 PRINT abk*:i=l 

10110 n=p (i > : i=i + l: IF n>1000 THEN DRAW x7.(n-1000), 
y7. (n-1000) ,h-f: GOTO 10500 

10120 IF n< O THEN PLOT x 7. (-n) , y7. (-n) ELSE DRAW x 7. ( 
n) ,y%(n) ,h-f 
10130 GOTO 10110 

10500 READ b*:IF VAL(b*)<>0 THEN 10500 
10505 IF b*="ENDESILDER" THEN 10010 
10510 IF a*="ALLE" THEN abk*=RIGHT* (b* ,3) : READ b*, 
b*: GOTO 10100 ELSE GOSUB 10900: PRINT latein* 
:GOSUB 10900:PRINT deutsch*:GOSUB 10900:GOTO 
10010 

10600 IF a*="ALLE" THEN 10500 ELSE PRINT"Nicht dar 
stell bar":GOSUB 10900:GOTO 10010 
10900 IF INKEY*="" THEN 10900 ELSE RETURN 
llOOO REM Messier—Objekte 

11010 n=ABS(INT(VAL(a*))):IF n>109 THEN PRINT"Exis 
tiert nicht":RETURN 
11020 RESTORE 50000 
11030 READ nr,ra$,de*,h*,typ* 

11040 IF typ*="ENDE" THEN RETURN 
11050 IF nOnr THEN 11030 
11100 x*=ra*:GOSUB 330:ra=x 
11110 x*=de*:GOSUB 330:de=x 

11120 g=4:c=hf:GOSUB 7000:IF x=-1000 THEN PRINT"Ni 
cht sichtbar":GOSUB 10900 ELSE MOVE x,y+8:DR 
AW x ,y—8,h-f : MOVE x— 8, y: DRAW x+8,y,h-f 
11130 PRINT"M";nr:GOSUB 10900:PRINT"HeI1igkeit " ; h 
*:GOSUB 10900 

11140 IF typ*="0" THEN PRINT"0-F-fener Sternhaufen" 
ELSE IF typ*="K" THEN PRINT"Kugelsternhau-fen 
" ELSE IF typ*="D" THEN PRINT"Diffuser Nebel 
" ELSE IF typ*="P" THEN PRINT"P1anetarischer 
Neb." ELSE PRINT"Galaxie" 

11150 GOSUB 10900 

11200 IF n=31 THEN PRINT"Andromedanebel" ELSE IF n 
=33 THEN PRINT”Triangulumnebel" ELSE IF n=45 
THEN PRINT"Plejaden" ELSE IF n=l THEN PRINT 
"Crabnebel" ELSE IF n=42 THEN PRINT"Orionneb 
el" ELSE IF n=44 THEN PRINT"Praesepe" ELSE I 
F n=97 THEN PRINT"Eulennebel" 

11210 IF n=104 THEN PRINT"Sombreronebel" ELSE IF n 
=20 THEN PRINT"Tr i -f idnebel" ELSE IF n=8 THEN 
PRINT"Lagunennebel" ELSE IF n=17 THEN PRINT 
"Omeganebel" ELSE IF n=57 THEN PRINT"Ringneb 
el" ELSE IF n=27 THEN PRINT"Hantelnebel" 
11500 RETURN 

12000 REM Zeichenerklaerung 

12010 MODE l:CLS:PRINT"Planeten:":PRINT:PRINT 
12020 PRINTCHR*(240);" Sonne" 

12030 PRINT:PRINT CHR*(241);" Merkur" 

12040 PRINT:PRINT CHR*<242>;" Venus" 

12050 PRINT:PRINT CHR*(244);" Mars" 

12060 PRINT:PRINT CHR*<245);" Jupiter" 

12070 PRINT:PRINT CHR*(246);" Saturn" 
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Anwendung 


guter Wert für den Rand ist eine 
Deklination von 30 bzw, -30 Grad. 
Der Himmelsnordpol wird ja be¬ 
kanntlich durch den Polarstern 
(der Hauptstern im Kleinen Wa¬ 
gen) markiert, auf den die Verlän¬ 
gerung der hinteren Sterne des 
Wagenkastens des Großen Bären 
zeigt (natürlich hat ein Bär keinen 
Wagenkasten, allgemein werden 
die offiziell als Großer und Kleiner 
Bär bezeichneten Sternbilder als 
Wagen bezeichnet). Im Gegensatz 
zum Nordpol steht am Himmels¬ 
südpol kein heller Stern, nur das 
schwache Sternbild Oktant. Auf 
der Südhalbkugel der Erde ist 
aber das Kreuz des Südens zu se¬ 
hen, dessen längere Achse etwa 
auf den Pol zeigt. 

Die Darstellung des sichtbaren 
Himmels bildet ebenfalls einen 
kreisförmigen Ausschnitt ähnlich 
dem der Polarkarte; dabei ist das 
Zentrum des Kreises das Zenit, al¬ 
so der Punkt senkrecht über dem 
Beobachter. Die Begrenzung stellt 
den Horizont dar, wobei der unter¬ 
ste Punkt des Randes die Südrich¬ 
tung markiert. Links, wo die Sterne 
aufgehen, ist Osten, rechts Westen 
und oben Norden. Wenn Sie eine 
Hardcopy erstellt haben und die 
Karte so drehen, daß die Himmels¬ 
richtung, in die Sie blicken, auf 
der Karte unten ist, entspricht der 
Anblick des Himmels dem der 
Karte. Wenn Sie einmal eine dreh¬ 
bare Sternkarte gesehen haben 
(dabei können Sie auch Beobach¬ 
tungsdatum und -zeit einstellen) 
oder eine besitzen, werden Sie 
feststellen, daß die Karte von SKY- 
PLOT im Prinzip dasselbe dar¬ 
stellt. Nur haben Sie auf Wunsch 
die Planeten mit dabei und können 
den Himmel für jede beliebige 
geographische Breite darstellen, 
während die drehbare Sternkarte 
für einen bestimmten Ort einge¬ 
stellt ist. 

Die Planetensymbole und die 
Sternfarben, die das Programm 
verwendet, können mit dem Me- 
nuepunkt „Z" abgerufen werden. 
Die eingestellten Modi (Art der 
Kartendarstellung, Ausschnitts¬ 
grenzen usw.) können mit „1" ange¬ 
zeigt werden. Ansonsten ist die Be¬ 
dienung recht einfach und sollte 
Ihnen einen ungetrübten Genuß 
des Sternhimmels ermöglichen. 

F. Th. 


12080 PRINT:PRINT CHR$ <247> ; " Uranus" 

12090 PRINT:PRINT CHR*<248>;" Neptun" 

12100 PRINT:PRINT CHR*<249>;" Pluto" 

12110 PRINTsPRINT CHR*(250);" Komet Halley" 

12120 GOSUB 10900:CLS 

12200 CLS:PRINT"Sternsymbole:PRINT:PRINT 
12210 PRINT" erste Groesse (hellste Sterne)*' 

12220 PRINT:PRINT" zweite Groesse" 

12230 PRINT:PRINT" dritte Groesse" 

12240 PRINT:PRINT" vierte Groesse und schwaecher" 

12250 x =8:y=342:g=1:PLOT x , y, 1:GOSUB 7910 

12260 y=310:g=2:PLOT x,y,1:GOSUB 7910 

12270 y=278:g=3:PLOT x,y,1:GOSUB 7910 

12280 PLOT x,246 

12300 GDSUB 10900 

12310 MODE O: PR INT "Stern-Farben: " : PRINT: PRINT"Spekt 
ralklassen:" 

12320 c=3:GOSUB 13000:PRINT"0 bzw. W" 

12330 c=2:GOSUB 13000:PRINT"B" 

12340 c=7:GOSUB 13000:PRINT"A" 

12350 c=8:GOSUB 13000:PRINT"F" 

12360 c=6:GOSUB 13000:PRINT"G" 

12370 c=9:GOSUB 13000:PRINT"K" 

12380 c=5:GOSUB 13000:PRINT"M, R, N, S bzw. C" 

12390 PRINT:PRINT:PRINT"Messier-Objekte:":c=10:G0S 
UB 13000:PRINT"Innergalaktisehe" 

12400 c=ll:GOSUB 13000:PRINT"Aussergalaktisehe":PR 
INT" Objekte"; 

12900 GOSUB 10900:MODE 2:RETURN 

13000 PRINT:PAPER c:PRINT" ";:PAPER 12:PRINT" ";:R 
ETURN 

30000 DATA *AND,Andromeda,Andromeda,—1,4,2,3,—2,10 
07 

30005 DATA *LAC,Lacerta,Eidechse,-l1,10,1012 
30008 DATA *AQR,Aquarius,Wassermann,-21,19,18,15,1 
3,14,17,-15,20,1016 

30010 DATA *AQL,Aquila,Adler,-27,28,25,23,24,29,-2 
3,26,1031 

30020 DATA *SCT,Scutum,Schild,-33,32,1034 
30030 DATA *ARI,Aries,Widder,-37,36,35,1039 
30040 DATA *TRI,Triangulum,Dreieck,-40,41,42,1040 
30050 DATA *AUR,Auriga,Fuhrmann,-43,46,49,380,48,4 
4,1043 

30060 DATA *B00,Bootes,Baerenhueter,-58,52,54,53,5 
5,56,52,1057 

30070 DATA *CRB,Corona Borealis,Noerdliche Krone,— 
64,61,60,62,1063 

30075 DATA •*CAM,Camelopardalis,Giratfe,-68,66,65,6 
7,1069 

30080 DATA *CNC,Cancer,Krebs,-70,73,72,75,-71,73,1 
074 

30090 DATA *CVN,Canes Venatici,Jagdhunde,—77,1078 
30100 DATA *CMA,Canis Major,Grosser Hund,-85,82,-8 
3,82,79,-81,79,1080 

30110 DATA *LEP,Lepus,Hase,-95,92,91,90,89,92,94,- 
90,93,98,1089 

30120 DATA *CMI,Canis Minor,Kleiner Hund,—99,1100 
30130 DATA *MON,Monoceros,Einhorn,—107,102,105,103 
,104,-105,1106 

30140 DATA *CAP,Capricornus,Steinbock,-l10,116,117 
,113,112,111,115,114,110,109,1108 
30150 DATA *CAS,Cassiopeia,Kassiopeia,—120,124,118 
,119,126,120,121,1122 
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30160 DATA *CEP,Cepheus.Kepheus,-130,137,132,129,1 
30,131,1137 

30170 DATA »CET,Cetus,Walfisch,-139,141,142,149, 14 
3,147,140,144,145,143,-140,1146 

30180 DATA »C0M,Coma Berenices,Haar der Berenike,- 
150,151,1152 

30190 DATA »CRV,Corvus,Rabe,-157,154,156,155,157,1 
153 

30200 DATA »CRT,Crater,Becher,-159,160,161,162,115 

9 

30210 DATA »SEX.Sextans,Sextant,-164,163,1165 

30220 DATA »CYB,Cygnus,Schwan,-171,170,168,169,174 
,175,-166,168,172,1167 

30230 DATA »DEL,Delphinus,Delphin,-179,17B,180,181 
,179,1182 

30240 DATA »EQU,Equuleus,Fuel1en,—184,187,186,188, 
1184 

30250 DATA »DRA,Draco,Drache,-611,190,191,611,192, 
193,194,195,196,197,189,1198 

30260 DATA *UMI,Ursa Minor,Kleiner Baer,-204,609,2 
01,200,204,203,202,1199 

30270 DATA »ERI.Eridanus,Fluss Eridanus,-206,215,2 
07,208,209,210,213,211,212,214,1205 

30280 DATA »6EM,Gemini,Zwi11inge,-218,221,219,217, 
216,220,1222 

30290 DATA »HER,Hercules,Herkules,-233,235,230,229 
,226,-235,232,231,227,228,-230,1231 

30300 DATA »HYA,Hydra,Noerdl. Wasserschl.,-245,246 
,238,237,244,243,236,241,240,239,1241 

30310 DATA »LEO,Lea,Laewe,-249,250,248,254,247,253 
,249,252,1251 

30320 DATA »LMI,Lea Minor,Kleiner Laewe,-259,258,1 
260 

30330 DATA »LYN,Lynx,Luchs,-261,265,264,263,1262 
30340 DATA »LIB,Libra,Waage,-267,266,268,1269 

30350 DATA »LYR,Lyra,Leier,-281,276,277,285,278,28 

1,1275 

30360 DATA »OPH,Dphiuchus,Schlangentraeger,-293,29 
2,291,290,296,287,288,293,1294 

30370 DATA »ORI»Orion,0rion,-301,299,306,303,302,3 

01,300,307,298,1303 

30380 DATA »PEG,Pegasus,Pegasus,-313,309,1,310,308 
,309,-308,312,314,1311 

30390 DATA »PER,Perseus,Perseus,-323,322,321,318,3 
19,328,-318,320,1324 

30400 DATA »PSC,Pisces,Fi sehe,-336,335,330,331,336 
,338,332,333,329,337,1334 

30410 DATA »SGE,Sagitta,Pfeil,-341,342,339,-342,13 
40 

30420 DATA »VUL»Vulpecula,Fuechslein,-344,343,345, 
1346 

30430 DATA *SGR,Sagittarius,Schuetze,-349,348,353, 
357,356,-357,355,358,-355,351,350,-351,352,1 
354 

30440 DATA »SCO,Scarpius,Skorpion,-359,361,360,359 
,362,368,363,364,365,366,1367 

30450 DATA »SER,Serpens,Schlange,-375,374,378,293, 
290,376,373,369,372,370,1371 

30460 DATA »TAU,Taurus,St i er,-384,379,380,—379,386 
,387,381,382,383,-385,381,1388 

30470 DATA »UMA,Ursa Major»Grosser Baer,-393,392,3 

91,390,393,394,395,1396 

30480 DATA »VIR,Virgo,Jungfrau,-400,407,402,403,40 

5,400,408,409,-404,403,-402,406,1401 

30490 DATA »ANT,Ant1ia,Luftpumpe,-412,410,1411 

30500 DATA »PYX,Pyxis,Schiffskampass,-415,413,1414 
30510 DATA »APS,Apus,Paradiesvogel,-416,41B,1417 
30520 DATA *C IR, drei nus, Zirkel , -422,421,1423 

30530 DATA *TRA,Triangulum Australe,Suedliches Dre 
ieck,—424,425,426,1424 

30540 DATA »ARA,Ara,Altar,-435,428,429,430,431,-42 
9,433,1434 

30550 DATA »PAV,Pavo,Pfau,-436,437,440,441,442,443 
,439,437,143B 

30560 DATA »TEL,Telescapium,Fernrohr,-446,445,1447 
30570 DATA »CAE,Caelum,Grabstichel,-448,1450 

30580 DATA »CQL,Columba,Taube,-452,451,455,452,453 
,1454 

30590 DATA »HÖR,Horologium,Pendeluhr,-459,1457 

30600 DATA »CAR,Carina,Schiffskiel,-464,465,461,46 

7,469,464,468,462,466,1460 

30610 DATA »CHA,Chamaeleon,Chamaelean,-471,473,472 
,474,475,1471 

30620 DATA »MUS,Musca,Fl iege,-476,477,479,478,476, 
480,1481 

30630 DATA »VOL,Volans,Fliegender Fi sch,-487,488,4 
B5,484.486.487.1482 

30640 DATA »CEN,Centaurus,Zentaur,-493,491,497,496 
,495,494,493,490,489,-491,1492 

30650 DATA »CRU,Crux,Kreuz des Suedens,—500,502,—4 
99,1501 

30660 DATA »CRA,Corona Australis,Suedliche Krone,— 
507,505,1506 

30670 DATA »LUP,Lupus,Wolf,-514,510,512,516,513,50 
8,509,511,1514 

30680 DATA »NDR,Narma,Winkelmass,-520,1517 

30690 DATA »DOR,Dorado,Schwert*isch,-523,521,522,1 
524 

30700 DATA »MEN,Mensa,Tafelberg,-526,528,529,1527 
30710 DATA »RET,Reticulum,Netz,-530,534,533,532,53 
1,1530 

30720 DATA »FDR,Fornax,Ofen,-537,535,536,1538 

30730 DATA »GRU,Grus,Kranich,-545,544,540,543,542, 
541,-542,1539 

30740 DATA »MIC,Microscopium,Mikroskop,—550,549,15 
48 

30750 DATA *PSA,Piscis Austrinus,-553,554,555,552, 
556,553,1557 

30760 DATA »HYI,Hydrus,Kleine Wasserschi-558,559 
,560,1558 

30770 DATA *IND,Indus,Inder,-563,566,565,-566,1564 
30780 DATA *OCT,Octans,Oktant,-567,568,569,1567 
30790 DATA *TUC,Tucana,Tukan,-570,572,571,573,1570 
30800 DATA »PHE,Phoenix,Phoenix,-575,579,577,576,5 
75,580,1578 

30810 DATA *SCL,Sculptor,Bi1dhauer(atel i er),—581,5 
84,583,1582 

30820 DATA *PIC,Pictor,Maler(staffelei),-585,587,1 
586 

30830 DATA »PUP,Puppis,Schiffsheck,-598,596,591,59 

8,595,589,593,595,-5B9,592,1594 

30840 DATA *VEL,Vela,Schiffssegel,-603,605,601,600 
,599,602,601,-602,1606 

31000 DATA "ENDEBILDER" 

40000 MEMORY S.9FFF 

40010 RESTQRE 40060 

40020 FOR i=&A000 TO &AOBF 

40030 READ byte:P0KE i,byte:s=s+byte:NEXT 

40040 CALL &AOOO:PRINT#8:PRINT#B 

40045 IF ka$="Q" OR kaI="A" THEN ORIGIN 320,208 EL 
SE ORIGIN 444,208 

40050 RETURN 

40060 DATA &cd, &ba , &bb , &cd , &e7, &bb, Sc32, &bd 

40070 DATA &a0 ,&cd , &6c, S-.aO, &21, &8f , 8.01 , &22 

40080 DATA &be,&a0,Sei 1 ,&00,8(00,&3e,8<07,&32 

40090 DATA &cO,&aO,&cd,&7c,&aO,&0e,&00,&3a 

40100 DATA &c0,&a0, &47,&e5, &d5,Scc5,$<cd,&fO 

40110 DATA &bb ,!fc 1, &d 1 ,&21 ,Jkbd ,&aO,&be,&el 

40120 DATA &37,&20, fcOl,8<a7,&cb,&11,&2b , &2b 

40130 DATA &10,&e9,&cd,Staf ,&a0,&79 ,&cd , &a6 

40140 DATA &aO,&13,&e5,&21 ,&7f ,8*02,8.37,&ed 

40150 DATA &52,&el,&38,&05,&2a,&be,&a0,&18 

40160 DATA &cc ,&23, &7c ,&b5,&c8 ,&2b ,M1, &00 

40170 DATA &00,&22,&be,&aO,&3e,&07,&bd,&20 

40180 DATA ?<b9 , 8t7c , &b4, &20, &b5 , &3e , &04 , &32 

40190 DATA &c0,StaO,&r 18,&ae,&3e,&lb,&cd,&a6 

40200 DATA S-a0,&3e, &41 ,&cd, fca6 ,&a0 , &3e , &07 

40210 DATA &cd,&a6,&aO,&c9,&e5,&3e,&42,&cd 

40220 DATA &ie,&bb,&e1,&28,&02,&e1,&c9,&3e 

40230 DATA ScOd , &cd , S-a6, fcaO,&3e ,&0a ,&cd ,&a6 

40240 DATA &aO,?<3e,Mb,&cd,&a6,&«0,&Se,&4c 

40250 DATA &cd,&a6,StaO,&3e,&7f,&cd,&a6,&a0 

40260 DATA &3e, &02, &cd ,8ca6 ,&a0, &c9 ,&cd ,&2e 

40270 DATA &bd, &38, Scf b , &cd, &2b, &bd, &c9 ,&3a 

40280 DATA SfC0,S«a0,8cf e,Sc07,&c8,&af ,&cb ,M 1 

40290 DATA &cb ,& 11, &cb ,&11 ,&c9 ,&00, &00, S-00 

50000 REM 

50010 DATA 31,0.4,41,4.8,G, 32,0.4,40.35,8.7,G, 33 
,1.31,30.24,6.7,G, 74,1.34,15.32,10.2,G, 76, 
1.39,51.19,10.8,P, 103,1.30,60.26,7.4,0, 34, 
2.39,42.34,5.5,0, 77,2.40,-0.13,8.9,G, 45,3. 
44,23.57,1.6,0, 1,5.32,21.59,8.4,P, 36,5.33, 
34.07,6.3,0 

50020 DATA 37,5.49,32.33,6.2,0, 38,5.25,35.48,7.4, 
O, 42,5.33,-5.25,2.9,D, 43,5.33,-5.18,4.6,D, 
78,5.44,0.02,8,D, 79,5.22,-24.34,7.9,K, 35, 
6.06,24.21,5.3,0, 41,6.45,-20.41,4.6,0, 46,7 
.40,-14.42,6,0, 47,7.52,-15.17,4.5,0, 50,7,- 
8.16,6.3,0 

50030 DATA 93,7.42,-23.45,6,0, 44,8.37,20.1,3.7,0, 
48,8.12,-1.48,5.3,0, 67,8.48,12,6.1,0, 81,9 
.52,69.18,7.9,G, 82,9.52,69.56,8.8,G, 95,10. 

41.11.58.10.4, G, 96,10.44,12.05,9.1,G, 105,1 
0.45,12.51,9.2,G, 65,11.16,13.22,9.3,G, 66,1 

1.18.13.16.8.4, G 
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50040 DATA 97,11.12,55.1B,9.1,P, 108,11.09,55.57,1 
0,G, 109,11.55,53.39,9.9,B, 49,12.27,8.16,8. 

6, G, 58,12.35,12.05,9.2,G, 59,12.4,11.55,9.6 
,G, 60,12.41,11.5,8.9,G, 61,12.19,4.45,10.1, 
G, 64,12.54,21.57,8.8,G, 68,12.37,-26.28,8.2 
,K, S4,12.23,13.1,9.3,G 

50050 DATA 85,12.23,18.28,9.3,G, B6,12.24,13.13,9. 

7, G, 87,12.28,12.4,9.2,G, 88,12.3,14.42,10.2 
,G, 89,12.33,12.5,9.5,G, 90,12.34,13.26,10,G 
, 94,12.49,41.24,7.9,G, 98,12.11,15.11,10.7, 
G, 99,12.16,14.42,IO.1,G, 100,12.2,16.06,9.5 
,G, 104,12.37,-11.2,8.7,G 

50060 DATA 106,12.17,47.35,8.6,G, 3,13.4,28.38,6.4 
,K, 51,13.28,47.27,8.1,G, 53,13.1,18.26,7.6, 
K, 63,13.14,42.18,9.5,G, 83,13.34,-29.37,9.5 
,G, 101,14.01,54.35,9.6,G, 5,15.16,2.16,6.2, 
K, 102,15.05,55.57,10.8,G, 4,16.22,-26.24,6. 
4,K, 10,16.54,-4.02,6.7,K 

50070 DATA 12,16.45,-1.52,6.6,K, 13,16.4,36.33,5.7 
,K, 62,16.58,-30.02,6.6,K, 80,16.14,-22.51,7 
.7,K, 107,16.3,-12.57,9.2,K, 6,17.37,-32.11, 
5.3,0, 7,17.51,-34.48,3.2,0, 9,17.16,-18.28, 
7.3,K, 14,17.35,-3.13,7.7,K, 19,17,-26.12,6. 
6,K, 20,17.59,-23.02,7.5,D 
50080 DATA 23,17.54,-19.01,6.9,0, 92,17.16,43.11,6 
.2,K, 8,18.01,-24.23,5.9,D, 11,18.48,-6.2,6. 
3,0, 16,18.16,-13.48,6.4,0, 17,18.18,-16.12, 
7.7,D, 1B,18.17,-17.09,7.5,0, 21,18.02,-22.3 
,6.5,0, 22,18.33,-23.57,6.9,K, 24,18.16,-18. 
27,4.6,0 

50090 DATA 25,18.29,-19.17,6.5,0, 26,18.42,-9.26,9 
.3,0, 28,18.22,-24.54,7.3,K, 54,18.52,-30.32 
,7.1,K, 57,18.52,32.58,8.9,P, 69,18.28,-32.2 
3,8.9,K, 70,18.4,-32.21,9.6,K, 27,19.58,22.3 
5,7.6,P, 55,19.37,-31.04,6.3,K, 56,19.15,30. 
05,8.2,K 

50100 DATA 71,19.52,18.39,8.3,K, 29,20.02,38.21,7. 

1,0, 72,20.51,-12.44,9. 8,K, 73,20.56,-12.5,7 
.5,0, 75,20.03,-22.04,8,K, 2,21.31,-1.03,6.3 
,K, 15,21.28,11.57,6,K, 30,21.38,-23.25,8.4, 
K, 39,21.3,48.13,5.2,0, 52,23.22,61.19,7.3,0 
50110 DATA 0,0,0,0,ENDE 
60000 REM 

60010 DATA 0.06,28.49,2.15,B, 1.07,35.21,2.37,M, 2 
.01,42.05,2.21,K, 0.37,30.35,3.49,K, 0.45,24 
,4.3,K, 23.35,46.11,4,G, 0.54,38.14,3.94,A, 
1.34,41.09,4.18,G, 1.35,48.23,3.77,K 
=>0030 DATA 22.3,50.02,3.85, A, 22. 22,51.59,4.58,K, 
22. 14,37.3,4.22,K 

60050 DATA 22.03,-0.34,3.19,6, 21.29,-5.48,3.07,G, 
22.19,-1.38,3.97,A, 22.52,-16.05,3.51,A, 20 
.45,-9.41,3.83,A, 22.26,-0.17,3.75,F, 22.33, 
-0.23,4.13,B, 22.14,-8.02,4.32,G, 22.5,-7.51 
,3.84,M, 23.07,-21.27,3.8,K 
60070 DATA 19.48,8.44,O.8,A, 19.53,6.17,3.9,G, 19. 
44,10.29,2.8,K, 19.23,3.01,3.44,A, 18.57,15, 
4.21,K, 19.03,13.47,3.02,B, 20.09,-0.58,3.37 
,B, 19.34,-1.24,4.28,B, 19.04,-4.58,3.55,B 
60090 DATA 18.33,-8.17,4.06,K, 18.45,-4.48,4.47,G, 
18.26,-14.36,4.73,A 

60110 DATA 2.04,23.14,2,K, 1.52,20.34,2.72,A, 1.51 
,19.03,4,A, 3.09,19.32,4.53,K, 2.47,27.03,3. 
68, B 

60130 DATA 1.5,29.2,3.58,F, 2.07,34.45,3.08,A, 2.1 
4,33.37,4.07,A 

60150 DATA 5.13,45.57,0-09,G, 5.56,44.57,1.93,A, 5 
.55,54.17,3.88,G, 4.58,43.45,3.5,F, 5.03,41. 
1,3.28,B, 5.56,37.13,2.7,A, 4.54,33.05,2.9,K 
, 6.12,29.31,4.45,G, 5.48,39.08,4.18,K 
60170 DATA 14.13,19.27,-0.06,K, 15,40.35,3.63,G, 1 
4.3,38.32,3.23,A, 15.14,33.3,3.54,G, 14.43,2 
7.17,2.59,K, 14.39,13.56,3.86,A, 13.52,18.39 
,2.8,6, 14.24,52.05,4.06,F 
60190 DATA 15.33,26.53,2.21,A, 15.26,29.17,3.72,A, 
15.41,26.27,3.93,A, 15.56,27.01,4.22,K, 15. 
31,31.32,4.17,B 

60210 DATA 4.49,66.16,4.3B,O, 4.59,60.22,4.22,G, 3 
.45,71.11,4.67,A, 4.53,53.41,4.44,A, 3.25,59 
.46,4.42,B 

60230 DATA 8.56,12.03,4.27,F, 8.14,9.2,3.76,K, 8.4 
,21.39,4.73,A, 8.42,18.2,4.17,K, 8.09,17.48, 
4.71,G, 8.44,28.57,4.09,G 
60250 DATA 12.54,38.35,5.39,A, 12.54,38.35,2.78,A, 
12.31,41.38,4.32,G 

60270 DATA 6.43,-16.39,-l.43,A, 6.21,-17.56,1.97,B 
, 7.02,-15.33,4.07,8, 7.06,-26.19,1.84,G, 6. 
57,-28.54,1.78,B, 6.18,-30.02,3.1,B, 7.22,-2 


9.12,2.43,B, 6.52,-11.58,4.25,K, 6.54,-16.59 
,4.39,B, 6.48,-32.27,3.78,B 
60290 DATA 5.31,-17.51,2.69,F, 5.26,-20.48,2.96,6, 

5.42,-22.28,3.8,F, 5.49,-20.53,3.9,G, 5.03, 
-22.26,3.29,K, 5.45,-14.5,3.67,A, 5.54,-14.1 
1,3.77,F, 5.11,-13,4.4,B, 5.17,-13.14,4.29,B 
, 5.11,-16.16,3.3,A 

60310 DATA 7.37,5.21,0.37,F, 7.24,8.23,3.09,B, 7.2 
5,9.02,4.6,K 

60330 DATA 7.39,-9.26,4.07,K, 6.26,-7,3.93,B, 6.12 
,-6.15,4.09,K, 7.09,-0.25,4.09,A, 6.21,4.37, 
4.33,A, 8.06,-2.5,4.41,G 

60350 DATA 20.15,-12.4,4.53,G, 20.15,-12.42,3.77,G 
, 20.18,-14.56,3.25,F, 21.37,-16.53,3.8,F, 2 

1.44, -16.21,2.98,A, 21.24,-22.38,3.86,6, 21. 
03,-17.26,4.19,A, 21.2,-17.03,4.3,K, 20.43,- 
25.27,4.26,F, 20.49,-27.06,4.24,M 

60370 DATA O.38,56.16,2.47,K, O.07,58.52,2.42,F, O 
.54,60.27,1.6,B, 1.23,59.59,2.8,A, 1.51,63.2 

5.3.44, B, 0.34,53.37,3.72,8, 0.46,57.33,3.64 
,F, 1.08,54.53,4.52,A, 0.3,62.39,4.24,8, 1.5 
9,72.11,4.06,A, 23.52,57.13,4.1,G 

60390 DATA 21.17,62.22,2.6,A, 21.38,70.2,3.32,8, 2 

3.37.77.21.3.42, K, 22.27,5B.1,3.9,F, 22.13,5 
6.48,4.23,A, 22.09,57.57,3.62,K, 20.44,61.39 
,3.59,G, 20.29,62.5,4.28,A, 22.48,65.56,3.68 
,K, 21.42,58.33,3.6,M 

60410 DATA 3,3.54,2.82,M, 0.41,-18.16,2.24,K, 2.41 
,3.02,3.58,A, 2.37,0.07,4.04,B, 1.49,-10.35, 
3.92,K, 1.06,-10.27,3.6,K, 1.22,-8.26,3.83,K 
, O.17,-9.06,3.75,K, 1.42,-16.12,3.65,G, 1.5 
8,-21.19,4.18,M, 2.17,-3.12,2,M 
60430 DATA 13.08,17.48,4.47,F, 13.1,28.08,4.32,G, 
12.24,28.33,4.56,K 

60450 DATA 12.06,-24.27,4.18,F, 12.32,-23.07,2.84, 
G, 12.13,-17.16,2.78,B, 12.27,-16.14,3.1,A, 
12.08,-22.21,3.21,K, 12.3,-15.55,4.42,F 
60470 DATA 10.57,-18.02,4.2,K, 11.09,-22.33,4.52,A 
, 11.22,-17.25,4.14,A, 11.17,-14.3,3.82,K 
60490 DATA 10.05,-0.08,4.5,A, 10.28,-0.23,4.95,B, 

9.5, -7.52,5.16,A 

60510 DATA 20.4,45.06,1.26,A, 19.29,27.51,3.1,B, 2 
0.2,40.06,2.32,F, 19.43,45,2.97,A, 20.44,33. 
47,2.64,K, 21.11,30.01,3.4,G, 19.54,34.57,4. 
03,K, 20.12,46.35,3.95,K, 19.28,51.37,3.94,A 
, 19.16,53.17,3.98,G, 19.49,32.47,3.3,5, 20. 
58,47.2,4.49,B 

60530 DATA 20.37,15.44,3.86,B, 20.35,14.25,3.72,F, 
20.44,15.57,4.12,F, 20.41,14.54,4.53,A, 20. 
31,11.08,3.98,8, 20.33,14.3,4.69,A 
60550 DATA 21.13,5.02,4.14,F, 21.2,6.36,5.14,A, 21 
.08,9.56,4.76,F, 21.12,9.48,4.61,F, 20.57,4. 
06,5.29,F 

60570 DATA 14.03,64.37,3.64,A, 17.29,52.2,2.99,G, 

17.55.51.3.2.42, K, 19.13,67.34,3.24,6, 19.48 
,70.08,3.99,G, 17.09,65.47,3.22,B, 16.23,61. 
38,2-89,G, 16.01,58.42,4.11,F, 15.24,59.08,3 
.47,K, 12.31,70.04,3.88,8 

60590 DATA 1.49,89.02,1.94,F, 14.51,74.22,2.02,K, 
15.21,72.01,3. 14,A, 17.48,86.37,4.44,A, 16.5 
1,B2.07,4.4,G, 15.46,77.54,4.34,A 
60610 DATA 1.36,-57.29,O.6,B, 5.05,-5.09,2.92,A, 3 
.56,-13.39,3.19,M, 3.41,-9.56,3.72,K, 3.31,- 
9.38,3.81,K, 2.54,-9.06,4.05,K, 2.56,-40.3,3 
.06,A, 2.39,-40.04,4.06,G, 4.16,-33.55,3.59, 
B, 1.54,-51.51,3.73,G, 4.34,-3.27,3.4,8 
60630 DATA 7.31,32,1.58,A, 7.42,28.09,1.16,K, 6.35 
,16.27,1.93,A, 7.17,22.05,3.5,A, 6.41,25.11, 
3.18,G, 7.01,20.39,3.68,F, 6.12,22.31,3.27,M 
, 6.5,34.01,3.64,A, 7.23,27.54,3.89,G, 7.41, 
24.31,3.68,G 

60650 DATA 17.12,14.27,2.9,M, 16.28,21.36,2.81,G, 
16.2,19.16,3.79,A, 17.13,24.54,3.16,A, 16.58 
,31,3.92,A, 16.39,31.42,3,G, 16.41,39.01,3.6 

1.6, 17.55,37.15,3.99,K, 17.45,27.45,3.48,G, 
17.13,36.52,3.36,K 

60670 DATA 9.25,-8.26,1.98,K, 11.5,-33.38,4.4,B, 1 
3.16,-22.54,3.33,G, 8.35,5.53,4.18,A, 8.44,6 
.36,3.48,6, 8.53,6.08,3.3,6, 8.41,3.35,4.32, 
B, 10.47,-15.56,3.32,K, 11.31,-31.35,3.72,G, 
14.04,-26.27,3.48,K, 13.27,-23.01,3,M 
60690 DATA 10.06,12.13,1.36,B, 11.47,14.51,2.23,A, 
10.17,20.06,2.3,K, 11.12,20.48,2.58,A, 9.43 
,24,3.12,G, IO.14,23-4,3.65,F, 10.05,17,3.58 
,A, 11.12,15.42,3.41,A, 11.21,10.48,4.03,F, 
10.3,9.34,3.85,B, 9.45,11.4,4.4,M 
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60710 DATA 10.25,36.58,4.41,G, IO.51,34.29,3.92,K, 
10.05,35.29,4.47,A 

60730 DATA 9.18,34.36,3.3,1*1, 7.23,49. 19,4.45,A, 8. 
19,43.21,4.43,K, 8.58,41.59,4.09,F, 9.16,37. 
01,3.82,8 

60750 DATA 14.48,-15.47,5.33,F, 14.48,-15.50,2.9,A 
, 15.14,-9.12,2.74,8, 15.33,-14.37,4.02,8, 1 
4.58,-8.19,4.91,A, 15.51,-16.35,4.34,8, 15.0 

1, -25.05,3.41,M, 15.36,-29.37,3.8,8, 15.34,- 

27.58.3.78, K 

60770 DATA 18.35,38.44,0.04,A, 18.48,33.18,3.34,8, 
18.57,32.37,3.3,B, 18.52,36.54,5.51,B, 18.4 
3,39.37,3.83,A, 18.43,39.34,4.5,A, 18.43,37. 
33,4.06,A, 19.12,39.03,4.46,B, 19.15,38.03,4 
.46,K, 18.18,36.02,4.34,K, 18.53,36.5,5.98,M 
, 18.54,43.53,3.9,(1 

60800 DATA 17.33,12.36,2.14,A, 17.41,4.35,2.94,K, 
17.45,2.43,3.74,A, 16.12,-3.34,3.03,(1, 16.16 
,-4.34,3.34,8, 16.34,-10.28,2.7,0, 17.08,-15 
.4,2.63,A, 17.19,-24.57,3.37,B, 16.52,10.15, 
4.29,B, 16.55,9.27,3.42,K, 16.24,-18.21,4.18 

60820 DATA 5.53,7.24,0.42,(1, 5.12,-8.15,0.15,8, 5. 

22,6.18,1.64,B, 5.3,-O.2,1.94,0, 5.34,-1.14, 

1.7, B, 5.38,-1.58,1.78,8, 5.22,-2.26,3.14,8, 
5.33,-5.56,2.87,0, 5.45,-9.41,2.2,B, 5.32,9 

.54,3.49,0 

60840 DATA 23.02,14.56,2.57,8, 23. 01,27.49,2.3,M, 
0.11,14.54,2.87,8, 21.42,9.39,2.54,K, 22.39, 
10.34,3.61,8, 22.41,29.58,3.1,6, 22.08,5.57, 

3.7, A, 22.05,25.06,3.96,F, 21.42,25.25,4-27, 

F, 22.4B,24.2,3.67,G 

60860 DATA 3.21,49.41,1.8,F, 3.05,40.46,2.13,B, 3. 
01,53.19,3.OB,F, 3.39,47.38,3.1,8, 3.55,39.5 
2,2.96,B, 3.51,31.44,2.91,B, 2.47,55.41,3.91 
,K, 2.41,49.01,4.22,F, 3.05,49.25,4.17,8, 3. 
06,44.4,4,G, 3.02,38.39,3.3,(1 
60880 DATA 2,2.31,3.94,A, 23.01,3.33,4.58,8, 23.15 
,3.01,3.85,8, 0.46,7.19,4.55,K, 1,7.37,4.45, 

G, 1.29,15.05,3.72,G, 23.25,6.06,4.45,K, 23. 
37,5.21,4.28,F, 1.43,8.54,4.5,G, 23.57,6.35, 
4.03,F 

60900 DATA 19.38,17-54,4.37,F, 19. 39,17.22,4.45,G, 
19.57,19.21 ,3.71 ,M, 19.45,18.25,3.78,(1 
60920 DATA 19.27,24.34,4.63,(1, 19. 41 ,21.18,4.6, B , 
19.51,23.57,4.5,A, 19.59,27.37,4.74,A 
60940 DATA 19.2,-40.43,4.11,B, 19.19,-44.33,4.24,B 
, 19.2,-44.54,4.51,A, 18.03,-30.26,3.07,K, 1 
8.18,-29.51,2.B4,K, 18.21,-34.25,1.82,8, 18. 
59,-29.57,2.71 ,A, 18.14,-36.47,3.16,(1, 18.25 
,-25.27,2.94,K, 18.55,-21.1,3.61,K, 18.52,-2 
6.22,2.14,B 

60950 DATA 18.11,-21.04,3.79,B 

60970 DATA 16.26,-26.19,0.88,(1, 16.03,-19.4,2. 9, B, 
15.57,-22.29,2.54,B, 16.47,-34.12,2.36,G, 1 
6.51,-42.17,3.75,K, 17.09,-43.11,3.44,A, 17. 
34,-42.58,2.04,F, 17.39,-39,2.51,B, 17.3,-37 
.04,1.71,B, 16.49,-37.58,3,B 
60990 DATA 15.42,6.35,2.75,K, 15.44,15.35,3.74,A, 
15.54,15.49,3.86,F, 15.32,10.42,3.85,A, 15.4 
8,4.38,3.75,A, 18.19,-2.55,3.42,G, 18.54,4.0 
8,4.1,A, 15.47,-3.17,3.63,A, 17.18,-12.48,4. 
33,A, 17.35,-15.22,3.64,A 
61010 DATA 4.33,16.25,0.85,K, 5.23,28.34,1.65,B, 4 
.17,15.31,3.86,G, 4.2,17.26,3.93,G, 4.26,19. 
04,3.63,G, 5.35,21.07,3,B, 3.45,23.57,2-96,B 
, 4.26,15.51,4.04,G, 4.26,15.46,3.62,A, 3.58 
,12.21,3.5,8, 4.13,8.46,4.32,B 
61030 DATA 11.01,62.01,1.8,K, 10. 59,56.39,2.44,A, 
11.51,53.58,2.54,A, 12.13,57.19,3.44,A, 12.5 

2.56.14.1.78, A, 13.22,55.11,2.17,A, 13.46,49 
.34,1.87,8, 9.3,51.54,3.26,F, 8.56,48.14,3.1 

2, A, 11.07,44.46,3. 15,K 

31050 DATA 13.23,-10.54,1,8, 11.48,2.03,3.8,F, 12. 

39,-1. 11,2.91,F, 12.53,3.4,3.66,(1, 13,11.14, 
2.95,G, 13.32,-0.2,3.44,A, 12. 17,-O.23,4,A, 
13.07,-5.16,4.44,A, 14.13,-5.46,4.16,F, 14.4 
1,-5.27,3.95,F 

61070 DATA 10.25,-30.49,4.42,11, 9.27,-35.44,4.64,(1 
, 10.54,-36.52,4.7,G 

61090 DATA 8.42,-33,3.7,B, B.38,-35. OB,4.04,G, 8.4 
B,-27.31,4.19,K 

61110 DATA 14.42,-78.50,3.81,K, 16.36,-77.25,4.16, 
G, 16.26,-78.47,3.9,K, 16.13,-78.34,4.78,M, 
16. 13,-78.33,5.22,(1 

61130 DATA 14.38,-64.46,3.41,F, 15.14,-58.37,4.16, 
A, 15.19,-59.09,4.54,B 


61150 DATA 16.43,-68.56,1.88,K, 15.51,-63.17,3.04, 

F, 15.42,-68.3,3.06,A, 16.11,-63.34,4.03,G 
61170 DATA 17.28,-49.5,2.97,B, 17. 21,-55.29,2.S,K, 

17.21,-56.2,3.51,B, 17.27,-60.39,3.79,B, 16 
.56,-53.05,4.15,11, 16.55,-55.55,3. 06,K, 16.4 
6,-58.57,3.68,K, 18.03,-50.06,3.9,B 
61190 DATA 20.22,-56.54,2.12,B, 20.41,-66.23,3.6,A 
, 21.22,-65.36,4.3,F, 20.04,-66.19,3.64,G, 1 
9.55,-73.03,4.1,A, 18.37,-71.28,4.1,K, 17.41 
,-64.42,3.58,K, 18.19,-61.31,4.25,(1, 18.52,- 
67.18,3.92,F 

61210 DATA 18.23,-46,3.76,8, 18.08,-45.58,4.6,G, 1 
8.25,-49.06,4.14,K 

61230 DATA 4.39,-41.58,4.52,F, 4.3,-37.14,5.08,F, 
5.03,-35.33,4.62,K 

61250 DATA 5.38,-34.06,2.75,B, 5. 49,-35.47,3.22,K, 
5.56,-35.17,4.36,B, 6.2,-33.25,3.98,G, 5.29 
,-35.3,3.92,K 

61270 DATA 4.12,-42.25,3.83,K, 2. 58,-64.16,5.08,A, 
4.09,-42.07,4.85,F, 2.36,-52- 46,5.26,A 
61290 DATA 6.23,-52.4,-O.86,F, 9. 13,-69.31,1.8,A, 
8.22,-59.21,1.74,K, IO. 41,-64.08,3.03,B, 9.1 

6, -59.04,2.25,F, 9.46,-64.5,3.15,F, 7.56,-52 
.51,3.6,8, 10.13,-69.47,3.56,B, 9.1,-58.46,3 
.56,B, 10.15,-61.05,3-44,K, 9.31,-62.34,3.9, 
(1 

61310 DATA 8.2,-76.46,4.08,F, 12.15,-79.02,4.38,8, 
10.35,-78.21,4.1,11, 10.45,-80. 17,4.62,B, 8. 
22,-77.19,4.26,K 

61330 DATA 12.34,-68.52,2.94,B, 12.43,-67.5,3.26,B 
, 12.3,-71.51,4.04,B, 12.59,-71.17,3.63,K, 1 
2. 15,-67.41,4. 16,(1, 11.43,-66.27,3.8, A 
61350 DATA 9.02,-66.12,4.18,A, 8.25,-65.58,3.65,K, 
7.08,-70.25,5.81,G, 7.11,-70.25,3.87,F, 7.1 

7, -67.52,4.02,F, B.08,-68.28,4.46,B, 7.43,-7 
2.29,3.89,K 

61370 DATA 14.36,-60.38,0.06,G, 14,-60.08,0.86,B, 
12.39,-48.41,2.38,A, 12.06,-50.27,2.88,B, 13 
.37,-55.13,2.56,B, 13-52,-47.03,3.06,B, 14.3 
2,-41.56,2.65,B, 14.04,-36.07,2.26,G, 13.18, 
-36.27,2.91,A, 14.56,-41.54,3.35,B 
61390 DATA 12.24,-62.49,1.05,B, 12.45,-59.25,1.5,B 
, 12.28,-56.5,1.6,11, 12. 13,-58.28,3.08,B, 12 
.19,-60.OB,3.57,K, 12.52,-56.54,3.95,B 
61410 DATA 19.06,-37.59,4.12,A, 19.07,-39.25,4.16, 

G, 19.03,-37.08,4.26,F 

61430 DATA 14.39,-47.11,2.89,B, 14.55,-42.56,2.81, 
B, 15.32,-41,2.95,B, 15.18,-40.28,3.43,B, 15 
.19,-44.31,3.74,B, 15.09,-51.55,3.5,6, 15.57 
,-38.15,3.64,B, 14.16,-45.5,4.1,8, 15.09,-48 
.33,3.97,B 

61450 DATA 16.16,-50.02,4.14,G, 16.03,-45.02,4.84, 
A, 16.24,-47.27,4.8,B, 16,-49.06,4.74,G 
61470 DATA 4.33,-55.09,3.47,A, 5. 33,-62.31,4.03,F, 
4.15,-51.37,4.36,F, 5.45,-65.45,4.52,A, 5.1 
4,-67.14,4.78,K 

61490 DATA 6.12,-74.44,5.14,G, 5.03,-71.23,5.3,G, 
5.34,-76.23,5.06,K, 4.57,-75.01,5.28,K 
61510 DATA 4.14,-62.36,3.36,G, 3.44,-64.58,3.8,G, 
4,-62.18,4.46,(1, 3.58,-61.32,4.41,(1, 4. 16,-5 
9.25,4.42,K 

61530 DATA 3.1,-29.11,3.95,F, 2.47,-32.37,4.5,G, 3 
.4,-32.06,4.93,6, 2.02,-29.32,4.74,A 
61550 DATA 22.05,-47. 12,2. 16,B, 22. 4 ,-47.09,2. 24 ,(1 
, 21-51,-37.36,3.16,B, 22.26,-43.45,4.02,G, 
22.27,-44,4.31,(1, 22. 46,-51.35,3. 69, A, 22.5B 
,-53.01,4.18,6, 23.04,-43.47,4.35,F, 23.08,- 
45.31,4.1,G 

61570 DATA 20.47,-33.58,5,G, 20.58,-32.27,4.71,6, 
21.15,-32.23,4.79,A, 21.18,-41.Ol,4.92,A 
61590 DATA 22.55,-29.53,1.29,A, 22.29,-32.36,4-36, 
A, 22.5,-33.08,4.52,A, 22.53,-32.48,4.33,G, 
22.38,-27.18,4.22,B, 21.42,-33.15,4.35,A 
61610 DATA 1.57,-61-49,3.02,A, O.32,-77.32,2.9,G, 
3.48,-74.24,3.17,(1, 2.21 ,-68.53,4.26 , A , 2.39 
,-68.29,4.26,B 

61630 DATA 20.43,-47.28,3.21,G, 20.51,-58.39,3.72, 
K, 21.55,-55.14,4.56,F, 21.16,-53.4,4.6,A 
61650 DATA 22.41,-81.39,4.34,F, 14.19,-03.27,4.14, 

K, 21.36,-77.37,3.74,K 

61670 DATA 22.15,-60.31,2.91,K, O.29,-63.14,3.75,B 
, 23.15,-58.31,4.1,F, O.18,-65.1,4.34,F 
61690 DATA 0.24,-42.35,2.44,6, 1.04,-46.59,3.35,6, 
1.26,-43.34,3.4,11, 1.29,-49. 2,3. 96,G, 0.07, 
-46.01,3.94,G, 1.06,-55.31,3.91,B, 0.24,-43. 
57,3-9,A 
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Anwendung 




Ausschnitt des Gesamthimmels vom 28. 4. 1968 mit Stier Rektaszen¬ 
sion: 6.096 h bis 2.5 h 

61710 DATA 0.56,-29.38,4.39,B, 23.3,-38.06,4.46,B, 
23.16,-32.48,4.51,G, 23.46,-28.24,4.64,A 
61730 DATA 6.48,-61.53,3.3,A, 5.46,-51.05,3.94,A, 
5.49,-56.11,4.38,K 

61750 DATA 7.51,-40.27,3.76,6, 8.02,-39.52,2.27,0, 
7.37,-26.41,3.81,B, 6.36,-43.09,3.18,6, 7.4 
7,-24.44,3.47,6, 7.15,-37,2. 74,K, 8.05,-24.1 
,2.88,F, 7.28,-43.12,3.27,M, 6.49,-50.33,2.8 
3,6, 7.44,-37.51,3.72,K, 7.12,-44.33,2.6,M 
61770 DATA 8.OB,-47.12,2.12,B, 8.43,-54.31,2.Ol,A, 
9.21,-54.48,2.63,B, 9.06,-43.14,2.22,K, 10. 
45,-49.09,2.84,G, 8.39,-52.45,3.68,B, 9.55,- 
54.2,3.7,B, 9.29,-40.15,3.64,A, 8.39,-46.28, 
4.06,F, 9.02,-46.54,3.69,K 
61772 DATA 16.18,76,5,X, 10.43,-59.25,4,X, 17.31,5 
5.13,4.26,A 

61780 DATA 0,0,0,STERNENDE 
62000 REM 
62010 d=nt 

62040 DN pl+1 GOSUB 62250,62260,62270,62250,62280, 
62290,62300,62310,62320,62330,62340 
62050 s=j:p=k:GOSUB 62160:b=g+n:a=m+ATN(COS(1)*TAN 
<b)):IF COS <b)<0 THEN a=a+180 
62060 b=ATN(5IN<l)*SlN(b)):la=a:br=b:j=l:k=0.01672 
:x=723625:rd=f:IF pl=0 THEN rd=0:la=0 
62070 e=f*COS(b):GOSUB 62160:c=e:IF pl=0 THEN c=0: 

e=f:b=0.0000001 
62080 IF pl< >3 THEN 62110 

62090 a£=''Erde" :br=0: ra=0: de=0: en=0: rd=f:1 a=g+101. 

22:el=0:eb=0:IF la>=360 THEN la=la-360 
62100 RETURN 

£>2110 d=g+101.22:x=c:y=a:GOSUB 62240: a=x: c=y: x=-f : y 
=d:GOSUB 62240:c=c-y:a=a-x:x=a:y=c:GOSUB 621 
90 

62120 d=x:*=y:c=ATN(e/d*TAN(b)):eb=c:el=f:g=d/CGS< 
c):en=g:c=ATN(SIN(f)/TAN(c)):IF f<0 THEN el= 
f+360 

62130 e=ATNCSIN(c—23.45) /SIN(c>*TAN<*>) : IF COS(-f)< 
0 THEN e=e+180 

62140 j=e/15:IF e<0 THEN e=e+360:j=j+24 
62150 d=ATN(SIN < e>/TAN(c-23.45)):ra=j:de=d:RETURN 
62160 i=0.985609166/j^l.5*(d—x)/360+1000:i=360*(i— 
INT(i)):t=i 

62170 c=SIN(t)*180/PI*k+i:IF ABS(c-t>>0.0001 THEN 
t=c:GOTO 62170 

62180 g=TAN(FN ac(k>/2):g=2*ATN(TAN<c/2>/g):f=j*<C 
QS(c)-k)/COS(g):RETURN 
62190 GOSUB 62200:x=rr:y=th:RETURN 

62200 rr=SQRCx*x+y*y):IF x=0 THEN th=90*SGN(y>:RET 
URN 

62210 th=ATN(y/x):IF x<0 THEN th=th+180 
62220 IF th>180 THEN th=th-360 
62230 RETURN 

62240 rr=x*COS(y):y=x*SIN(y):x=rr:RETURN 

62250 a$="Sonne“:j=l:k=0:I=0:m=0:n=0:x=0:RETURN 

62260 a$= 1 "Merkur : j=0.3871: k=0. 20563:1 =7. 004:m=48. 

04:n=29.03:x =723219.6:RETURN 
62270 a$="Venus":j=0. 72333: k=0.006785:l=3.394:m=76 
.44:n=54.79:x =723566.7:RETURN 
62280 a$=“Mars":j=1.5237:k=0.09338:1=1.85:m=49.37: 

n=286.24:x =721596.3:RETURN 
62290 a$=“Jupiter": j =5.20225:k=0.048:1=1.306:m=100 
.2:n=273.78:x=721659.3:RETURN 
62300 a$="Saturn":j=9.55415: k=0.05635:1=2.488:m=l1 
3.47:n=338.66:x=721090:RETURN 
62310 a$= H Uranus":j =19.1323: k=0. 04526:1=0.772:m=73 
.93:n=94.32:x=718277:RETURN 
62320 a*=“Neptun":j =29.985:k=0.01158:1 = 1.771:m=131 
.59:n=273.92:x =687416:RETURN 
62330 a*="P1uto":j =39. 293: k =0.2456:1 = 17.14:m=109.9 
6:n=l14.08:x=636923:RETURN 
62340 a*="Ha11ey":j = 17.95:k=0.9672788:1=162.24:m=5 
8.145:n=111.848:x =725489.5:RETURN 



Hardcopies von Skyplot 
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Gesamthimmel am 28. 4.1962 Breite 51.17° 12.00 Uhr mit großem Bär 














Zeno’s Turtle 

Helfen Sie Zenoboy 
beim Hüten seiner Schildkröten 


Programmaufbau 


’Zeno's Turtles' ist ein reines 
BASIC-Programm. Der einige Ma¬ 
le auftauchende CALL &bb06 be¬ 
wirkt nur ein Warten auf den näch¬ 
sten Tastendruck. Dennoch wir¬ 
ken sich Tippfehler hier ärgerlich 
aus. Besondere Aufmerksamkeit 
ist auch dem Dateien-Teil zuzuwen¬ 
den. Zeilen 2850-3090: In diesen 
Zeilen sind die Koordinaten für 
den Titelplot zusammengefaßt. Ei¬ 
ne Fehlersuche ist hier weniger 
schlimm, als es aussieht. Die Da¬ 
ten haben das Format 
x-Koord. (abs. Startwert), y- 
Koord. (abs. Startwert), Plotrich¬ 
tung, Koord. Zielwert (x oder y 
abs). Da in 2-Pixel-Abständen ge- 
plottet wird und der Zielwert ab¬ 
gefragt wird, muß die Differenz 
durch 2 teilbar sein, sonst kommt 
es zu Ausbrüchen bei PLOT. Dies 
bedeutet aber in jedem Fall: Tipp¬ 
fehler! Zeilen 3480-3610: Das For¬ 
mat der LOCATE-Daten weist eine 
Besonderheit auf. Anders als beim 
LOCATE-Befehl wird hier erst die 


LOCATE 


Zeile und dann die Spalte angege¬ 
ben (mit führenden Nullen). Dahin¬ 
ter kommt die Nummer eines Cha¬ 
rakters. Sollte Zeile 2100 eine Feh¬ 
lermeldung verursachen, obwohl 
sie korrekt getippt ist, so ist der 
Fehler in den Daten zu suchen. 
Das Programm wurde in Mode 2 


geschrieben. Bei Nachahmung 
empfiehlt sich, INK 0,25 und INK 
1,0 zu wählen (PAPER und PEN je 
nach Geschmack und Beleuch¬ 
tung). Beim Eintippen der Datas 
erleichtern Zwischenzeilen, die 
später entfernt werden können, 
die Übersicht. Nach dem Eintip¬ 
pen das Programm bitte erst ab¬ 
speichern, die Anlage zurückset- 


Das Abenteuer 


zen und neu laden. Sollten uner¬ 
wünschte Färb- und Printeffekte 
auftreten, liegt ein Fehler in der 
Grafik-Text-Umschaltung vor. In 
diesem Fall bitte kontrollieren, ob 
alle TAG-, TAGOFF-, PRINT 
CHR$(23); CHR$(0)- und PRINT 
CHR$(23); CHR$(1);-Anweisungen 
vorhanden sind und richtig ange¬ 
sprungen werden. 


Zenoboy 


Zenoboy, ein Aussteigertyp mit ei¬ 
ner Nase, die Cyrano de Bergerac 
zur Ehre gereicht hätte, hatte wie¬ 
der einmal kein Glück. Zenoboys 
zu lang geratene Nase und seine 
spezielle Vorliebe zu den Ge¬ 
schichten um Zeno, den Älteren 
(irgendein alter Grieche), und selt¬ 
samen Wettläufen mit Schildkrö¬ 
ten hatten ihm schon früh zahllose 
Hänseleien eingebracht. Als sich 
der dieserart Geplagte dann auch 
noch dem Zen-Buddhismus ver¬ 
schrieb, bekam er seinen Spitzna¬ 


men: 'Zenoboy', was den Ärmsten 
nun endgültig ins Aussenseitertum 
trieb. Doch dann, nach langen Jah¬ 
ren der Suche, erfüllte sich sein 
langgehegter Wunsch, sein Leben 
in Ruhe und Besinnlichkeit auf ei¬ 
ner einsamen kleinen Insel ver¬ 
bringen zu können. Pustekuchen! 
So etwas gibt es nur in schönen al¬ 
ten Geschichten. Die Insel seiner 
Wahl war vulkanischen Ur¬ 
sprungs, der Vulkan tüchtig aktiv 
geworden und Zenoboy fliegt die 
glühende Asche um die Ohren! 
Entsetzt rennt er los, um seine 
Lieblinge, die griechischen Land¬ 
schildkröten, in Sicherheit zu brin¬ 
gen, als ihm kurz vor dem Ziel der 


Lavaglut 


Weg durch glutflüssige Lavamas¬ 
sen abgeschnitten wird. Aber es 
gibt in der Lava einige kältere Stel¬ 
len. Wenn man nun von 'Scholle zu 
Scholle 1 hüpft... Genau dies ist die 
Aufgabe der Spieler. Mitspielen 
können bis zu 6 Personen. Gesteu¬ 
ert wird mit den Cursortasten. Be¬ 
merkungen: Der in der einen oder 
anderen Runde niedergehende 
Aschenregen ist nicht so harmlos, 
wie es zunächst scheint. Wenn Ze¬ 
noboy oder Turtles verschwinden, 
so hat es sie an ihrer empfindlich¬ 
sten Stelle erwischt. (?????) Sollte 
einmal keine Möglichkeit gege¬ 
ben sein, die Lava zu passieren, 
bitte CTLR drücken (nicht zu oft!). 
Das Hüpfen von Stein zu Stein auf 
horizontaler Ebene ist nicht mög¬ 
lich. Trotz 'Mensch-laß-dich-nicht- 
Nerven' -Effekt: Viel Spaß! 
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Bad Pyrmont 



45 * - f)r Schneider CPC 4&4 —- 

30 ' - 

100 GOSUB 2550 

110 MODE O s DEFINT a-z :-fw=2 

120 INK 0,0 tINK 1.6 sINK 2,3 iINK 3,25 :INK 4,13 
IINK 5,1B l INK 12,24 
130 BORDER 0 iPLOT 0,-2,4 

140 1 - dedicated - 

150 TAG :FOR m-370 TO 260 STEP -2 

160 MOVE 244,m iPR1NT"f}r"«iMOVE 220,m+17sPRINT" 

170 NEXT :TAGOFF 

180 LOCATE 6,13lPEN 3lPRINT "COMPUTER" 

190 LOCATE 5,16> PEN 1 iPRINT "T E A M";sLOCATE 1 
6, 15i PEN 5i PRINT CHR*(132)| 

200 FOR 1=1 TO 8000 :NEXT 

210 FOR y=120 TO 270 STEP 2 :PLOT 16,ysDRAW 624,y, 
0 :SOUND 1,y-BB,2,0,6« NEXT 


220 EVERY 50,2 GOSUB 2S10 

230 ’ - Titel-Plot - 

240 RESTORE 

250 READ x, y, id:<*, siel 

260 IF idx*="xp" THEN GOSUB 

300 

ELSE IF idx* = "xn“ 

THEN GOSUB 310 
270 IF idx*="yp 

" THEN GOSUB 

320 

ELSE IF idx*="yn" 

THEN GOSUB 330 
2B0 IF idx*="f-f 

" THEN GOTO 

340 


290 GOTO 250 

300 PLOT x , y 

: x =x+2 

i IF 

x =ziel THEN RETURN 

ELSE GOTO 300 
310 PLOT x,y, 1 

i x=x-2 

i IF 

x =1 i el THEN RETURN 

ELSE GOTO 310 
320 PLOT x,y 

i y=y+2 

i IF 

y=ziel THEN RETURN 

ELSE GOTO 320 
330 PLOT x,y 

: y=y-2 

i IF 

y=ziel THEN RETURN 

ELSE GOTO 330 
340 LOCATE IS, 6 

:PEN 2 «PRINT CHR«(64) 

350 ' --- Copyrights - 

360 LOCATE 4,15iPEN 3«PRINT 

"T u r t 1 e b" 


370 LOCATE 4,17iFEN 2lF'RINT "Computer-Game" t : LOCA 
TE 9,20iPEN 4 jPRINT "von" 

380 LOCATE 3,22jPEN 6«PRINT "Willi Ruscheweyh" 

390 LOCATE 12,25iPRINT CHR«<164);"10/1905” 

400 INK 1,26,61 INK 2,25,9iSPE£D INK 30,50iF0R i-1 
TO 10000sNEXT 

410 TAG s FOR m=>0 TO 15 STEP 2 
420 MOVE 176,m SPRINT " -Taste- "ssNEXT 

430 SOUND 1,213,15,0,3,2iSOUND 3,63,13,0,3,2iSOUND 
2, 142,13,0,3,2 

440 TAGOFF iPEN Ol PRINT CHR*(30)\REMAIN (2) 

450 s CALL &BB06 

460 FOR y-400 TO 0 STEP -2 iSOUND 1,y+32.1.4:PLOT 
O.ysDRAW 640,y,0 sNEXT 

470 '-Inetruct, - 

4B0 MODE 1:INK 1,25 sINK 2,6 sINK 3,21 



570 LOCATE 15,4:PEN 3 

SPRINT "-" 

5B0 RESTORE 3280 sPEN 1 

590 FOR t=0 TO 17 :READ text* :LOCATE 3,6+ttPRINT 
text»: NEXT 

600 :CALL &BB06 

610 ’ - Mitspieler - 

620 DIM namt(6),scr(6) 

630 CLS:LOCATE 4,4 :PEN 2:PRINT "Wieviele Mitspiel 
er Umax. 63";:INPUT ans 
640 FOR i=1 TO anz 

650 LOCATE 4,6+2*i :PEN 3:PRINT "Name des ";i;". M 
itspielers";:INPUT nam* 

660 sp = i :nam* ( sp)=nam* sNEXT 

670 PRINTsPRINT CHR*<19){sLOCATE 8,4:PEN 2:PRINT " 
Mitspielerliste“ 

6B0 FOR i=l TO anz :LOCATE 6,6+2#i:PEN 3:PRINT "Sp 
ieler "ti;nam*(i);sNEXT 

690 LOCATE 8,22:PEN 1:PRINT "Alles richtig ? 

Cj/n 3 " 

700 a*=INKEY*s IF a* = ,,H THEN 700 

710 IF a*="j" OR a*="J" THEN 730 ELSE ERASE nam», 
scrsCLEAR :GOTO 620 


720 ’ - Spielturnus - 

730 CLS:LOCATE 4,6:PEN 3:PRINT "Spielzeitbegrenzun 
3" 

740 LOCATE 4,7:PEN 1:PRINT "-";i 

PEN 2 

750 LOCATE 4,10:PRINT "Anzahl der Runden "jiINPU 
T rnz 

760 LOCATE 4,13:PRINT "Anzahl der Chancen "s:INPU 
T chanc 

770 LOCATE 4,16:PRINT "Bonusabzug je Turt1e";:INPU 
T bnab 

780 LOCATE 18,19:PEN 3:PRINT "Okay ? Cj/nD" 

790 a*=INKEY*:IF a*="" THEN 790 

800 IF a*="J" OR a*="j" THEN 810 ELSE 730 

BIO sp =0 :rund = l 

820 ’ - HAUPTPROGRAMM - 

830 MODE 0 :cc=chanc :snap=Q 

B40 INK 0,Ol INK l,25ilNK 5,3 iINK 7,9:INK 14,3,25 
iSPEED INK 10,5 

850 WIND0W#2,1,20,1,25 :PAPER#2,1 

860 WIND0W#1,1,20,1,25 

870 WIND0W#3,1,20,1,1 :PAPER#3,1 

880 sp=*p+l iIF sp=anz+l THEN sp=l sGOTO 2130 'Ru 
ndenwechsel 


890 fw2=fw2+l:IF fw2=2 THEN fw2*3 ELSE IF fw2>12 T 
HEN fw2*l :CLS 

900 LOCATE 5,10:PEN fw2*PRINT nam*<sp)j:LOCATE 5,1 
3 t PEN 3:PRINT "ist dran 

910 LQCATE#3,10,1:P£N#3,7:PRINT#3," Runde "jrund; 

920 FOR i=1 TO 4000:NEXT:CLS 

930 GOSUB 2010 :GOSUB 2060 


940 IF rund MOD 2=0 THEN GOSUB 2430 ELSE IF rund M 
OD 2=1 THEN GOSUB 2470 

950 bn=300 :trx=-64 :try=271 jGOSUB 1950 
960 ' === animation === 

970 PRINT CHR*(23)|CHR*(1) 

980 TAG 

990 -fa=249 s wem=250 ; osm=248 :exm=250 :mx=64ö: ny= 
63 

1000 PLOT 0,402,4 

1010 IF TEST <mx+16,ny-33)=2 THEN GOSUB 1610 :cc= 

cc-1 :GOSUB 1950 «IF cc=0 THEN 830 ELSE 970 

1020 IF ny>415 AND mx>575 THEN GOSUB 1880 :GOTO 83 


490 LOCATE 14,12:PEN 2:PRINT "Beschreibung" 

500 FOR i=1 TO 3000 :NEXT :CLS 

510 LOCATE 16,4:PEN 2:PRINT "Spielziel" 

520 LOCATE 16,5:PEN 3:PRINT "- 

530 RESTORE 3100 :PEN 1 

540 FOR t=0 TO 16 tREAD text* :LOCATE 3,7+t 
:PRINT text*:NEXT 

550 LOCATE 16,25:PEN 3:PRINT "-Taste-"; 

:CALL &BB06 

560 LOCATE 3,24: PRINT CHR*(19);tLOCATE 


0 

1030 IF ny<48 AND mx<161 THEN GOSUB 1880 :GOTO 83 
0 

1040 IF ny<0 OR ny>415 THEN GOSUB 1610 .-GOTO 830 
1050 IF mx<-32 OR mx>672 THEN GOSUB 1610 ;GOTO 830 
1060 trx=trx + lj MOVE trx.try :PRINT CHR*(132): :MOV 
E tr>!-l,try :PRINT CHR*<132)| 

1070 IF TEST(trx-2,try+2)=2 THEN GOSUB 1870 :GOS 

UB 1920 :GOSUB 1950 

1080 IF mx=trx AND ny-l6=try THEN SOUND 1,32,6,7«M 
OVE trx.try »PRINT CHR*(132);: :GOSUB 1910 «GOSUB 
1950 


15,3:PEN 2 »PRINT "H3pf-Technik" 
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1090 IF INKEY(16)=0 THEN GOSUB 2470 

1670 adtu-0 sRETURN iEND 

1100 IF INKEY(8)-0 THEN 1170 

1680 ’ - Bonus null - 

1110 IF INKEY(1> =0 THEN 1230 

1690 TAGOFF sMODE 0 

1120 IF INKEY<0>-0 THEN 1290 

1700 FOR i=l TO 3sS0UND 1,124,10,0,5,4 iSOUND 1,32 

1130 IF INKEY(2)=0 THEN 1350 

,15,0,3,2tS0UND 4,224,10,0,3,2lNEXT 

1140 IF INKEY(9)-0 THEN 1730 

1710 LOCATE 4,12iPEN 2iPRINT "Bonus 0";iL0CATE 4.1 

1150 IF bn<0 THEN 1690 ELSE GOTO 1000 

4iPEN fw2:PRINT nam*(sp) "!"|iFOR 1*1 TO 4000iNEXT 

1160 ’- < west - 

sGOTO 830 

1170 MOVE 603,382s PRINT "<";:WHIL£ INKEY*=""iWENDs 

1720 ’ - Catch und Set - 

IF INKEY(8)*0 THEN 1180 ELSE 1410 

1730 SOUND 2,198.15,12,3,2 

1180 mx=mx-16 

1740 IF snap=1 AND TEST (mx+9,ny-33)=8 THEN 1750 

1190 MOVE niü.ny : PRINT CHR*(wem)j: MOVE mx,n 

ELSE 1000 

y-16 i PRINT OHR* (f a) ; 

1750 snap=0 sPLOT 666,444,1 :adtu=adtu+l spkt(sp)= 

1200 MOVE mx+16,ny :PRINT CHR*(exm);: MOVE mx+1 

pkt(sp)+15 

6, ny-16 iPRINT CHR*(fa)| 

1760 MOVE mx,ny-16 sPRINT CHR*(132)isSOUND 1,213.1 

1210 SOUND 2.338,15,0,6,2,2 sexm=wem : GOTO 1 

5,12,5,4 

000 

1770 IF adtu=7 THEN GOTO 1800 

1220 ’- ost > - 

1780 GOSUB 1950 sGOTO 1000 sEND i 

1230 MOVE 615,382:PRINT ">"::WHILE INKEY*="":WEND: 

1790 ’ - Turtle Canasta - 

IF INKEY < 1) =0 THEN 1240 ELSE 1510 

1800 tse(sp)*tse(sp)+1 spkt(sp>=pkt(sp>+((bnab*7)* 

1240 mx=mx+16 

cc > +bn ; bn«=300 s MODE 0 

1250 MOVE mx.ny :PRINT CHR*(osm)s: MOVE mx.n 

1810 TAGOFF sLOCATE 3,12:INK 1,25,3:PEN isPRINT "T 

y-16 :PRINT CHR*(fa); 

urtle Canasta"; 

1260 MOVE m:<-16, ny :PRINT CHR*(exm);: MOVE mx-1 

1B20 LOCATE 3,14:PEN 3:PRINT "Or"; 

6,ny-16 :PRINT CHR*(fa); 

1830 LOCATE 8,16:PEN fw2:PRINT nam*(sp); 

1270 SOUND 1,239,15,0,6,2,2 :exm=osm : GOTO 1 

1840 FOR i*1 TO SsSOUND 1,73,15,0,5,4:SOUND 1,142, 

000 

15,0,5,4:SOUND 1,32,15,0,5,4tNEXT 

12B0 ’-down/up - 

1850 FOR i*1 TO 7000:NEXT i adtu=OiGOTO 830 sEND 

1290 WHILE INKEY*="":WEND:IF INKEY(0)=0 THEN 1300 

1860 ’ - Turtle weg + Schummelecke - 

ELSE 1000 

1870 FOR i*1 TO 5 :SOUND 2,32*1,i,6:NEXT:MOVE trx. 

1300 ny=ny+16 

trytPRINT CHR*(132);iRETURN 

1310 MOVE mx.ny iPRINT CHR*(exm)is MOVE mx,n 

1BB0 FOR i=7 TO 1 STEP -1 :SOUND 4,224-1*32,30,0,3 

y-16 :PRINT CHR*(fa>; 

,2iNEXT sMODE 0 :adtu=0 

1320 MOVE mx,ny-16 :PRINT CHR*(exm);: MOVE mx.n 

1890 LOCATE 6,12:PEN 3:PRINT "pfuuiii 1 "isLOCATE 6 

y-32 SPRINT CHR* (fa); 

,14;PEN fw2:PRINT nam*(sp> "..."iiFOR i*l TO 4000s 

1330 SOUND 1,63,2,6 ! GOTO 1000 

NEXT:RETURN : END 

1340 ’-up/down - 

1900 ’-new Turtle- 

1350 WHILE INKEY*="":WEND: IF INKEY<2)=0 THEN 1360 

1910 pkt(sp)=pkt(sp)+10 :snap=l 

ELSE 1020 

1920 bn=bn-bnab itrx=-64 stry*INT(RND(1)*7+10)*16- 

1360 ny=ny-16 

1 j 

1370 MOVE mx.ny sPRINT CHR*<exm)jj MOVE mx,n 

1930 RETURN iEND 

y-16 sPRINT CHR*(fa) | 

1940 ' - Score + Time - 

1380 MOVE mx,ny+16 iPRINT CHR*(exm)»i MOVE mx,n 

1950 L0CATE#2,1,25:PEN#2,7:PRINT#2,"Score"iUSING " 

y sPRINT CHR* (f a) ; 

#####'‘;pkt(sp); 

1390 SOUND 2,225,2,6 : GOTO 1000 

1960 L0CATE#2,12,25IPRINT#2."Set "|USING " ##"isdt 

1400 ’ - 

u; 

1410 IF INKEY (0)=0 THEN 1420 ELSE IF INKEY(2>«0 TH 

1970 SOUND 2,2024.3,4,,,2 

EN 1460 ELSE 1490 

1980 L0CATE#3,1,1:PRINT#3,"Bonus ";USING 

1420 mx*mx-32 :ny=ny+16 

1990 L0CATEW3,15,1:PRINT#3,cc; :RETURN : END | 

1430 MOVE mx.ny iPRINT CHR*(axm)|i MOVE mx,n 

2000 ’- Bach - 

y-16 iPRINT CHR* Cfa)| 

2010 x=2 :y=28 

1440 MOVE mx+32,ny-16 iPRINT CHR*(exm)|t MOVE mx+3 

2020 rma=INT(RND(1)*5)-1 

2, ny-32 iPRINT CHR*(fa); 

2030 PLOT x +rma.y,2 :DRAW x+230+rma,y 

1450 SOUND 1,124,2,12 i GOTO 1000 

2040 x=x+2 :IF y>382 THEN RETURN ELSE y=y+2 sGOT 

1460 mx=mx-32 :ny=ny-16 

0 2020 

1470 MOVE mx,ny iPRINT CHR*(exm);: MOVE mx,n 

2050 ’ - - READ ROUTINE - - - 

y-16 iPRINT CHR*(fa)i 

2060 RESTORE 3470 

1480 MOVE mx+32,ny+16 sPRINT CHR*(exm)ji MOVE mx+3 

2070 READ vy.hx.cha 

2, ny iPRINT CHR*(fa); 

2080 IF cha=333 THEN RETURN ELSE 2090 

1490 SOUND 1,56,2,6 i GOTO 1000 

2090 IF cha=217 THEN fw=l ELSE IF cha=137 THEN fw= 

1500 ’ - 

3 ELSE IF cha=148 OR cha=151 OR cha=152 THEN fw=2 

1510 IF INKEY<0)*0 THEN 1520 ELSE IF INKEY(2)-0 TH 

ELSE IF cha=207 OR cha>220 THEN fw-B 

EN 1560 ELSE 1590 

2100 LOCATE# 1, hx + 1, vy: PEN#I, -fw:PRINT#l, CHR* (cha 

1520 mx “mx +32 my=ny+16 

)|iGOTO 2070 ! 

1530 MOVE mx,ny iPRINT CHR*(axm);i MOVE mx,n 

2110 END 

y-16 sPRINT CHR*(fa>; 

2120 ’ - Scare/Player - 

1540 MOVE mx-32,ny-16 sPRINT CHR*(exm);s MOVE mx-3 

2130 TAGOFF 

2,ny-32 sPRINT CHR*(fa)i 

2140 CL5 sLOCATE 4,13 :PEN 3 sPRINT "Ende Runde "j 

1550 SOUND 2,67,2,6 : GOTO 1000 

rund;;FOR 1=1 TO 4000sNEXT 



1570 MOVE mx.ny iPRINT CHR*(exm);i MOVE mx,n 

irund=rund+l 

y-16 iPRINT CHR*(fa); 

2160 FOR i=1 TO anz iscr(i)=pkt(i) sNEXT :CLS 

1580 MOVE mx-32,ny+16 sPRINT CHR*(exm);i MOVE mx-3 

2170 LOCATE 10,4:PEN 1iPRINT "High-Score" 

2.ny iPRINT CHR*(fa) i 

2180 LOCATE 2,6:PEN 2:PRINT " Spieler Cana 

1590 SOUND 1,1014,2,12 « GOTO 1000 

sta’ Punkte " 

sEND 

2190 FOR i = l TO am 

1600 ’- Bad - 

2200 LOCATE 2,6+2*i:PEN 3iPRINT nam*(i> TAB(22) ts 

1610 MOVE mx,ny sPRINT CHR*(exm)|i MOVE mx,ny-16 : 

e(i>;TAB (30) USING "#####"iscr(i);:NEXT 

PRINT CHR*(fa)| 

2210 score(h)=MAX(scr(1),scr(2),scr(3),scr(4),scr( 

1620 MOVE mx.ny sPRINT CHR*(exm)j: MOVE mx,ny-16 i 

5),scr(6)): te=0 

PRINT CHR*(253); 

2220 te=te+l :IF score(h)=scr(te) THEN 2230 ELSE 

1630 FÜR i=l TO 7 : d-d+16 sSOUND l,142+d,10,5 

220 i 

,3,2 

2230 INK 1,3.25iLOCATE l,6+2*te:P£N IsPRINT CHR*(1 

1640 MOVE mx.ny-16 iPRINT CHR*(254)jiMOVE mx,ny-16 

32) ; 

iPRINT CHR*(253);iNEXT 

2240 LOCATE# 1, 14,25: F‘EN#1,2l PR INT# 1, Taste -" 

1650 MOVE mx.ny iPRINT CHR*(exm)| 

2250 CALL S<BB06 s CALL S.BB06 

1660 TAGOFF sPRINT CHR*(23)|CHR*(0);I DIiFOR i* 

2260 IF rund >r ns THEN 2300 ELSE 2270 

1 TO 3000 s NEXT 
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2270 MODE 0:LOCATE 4,13:PEN 14:PRINT "nlchste Rund 

e! “; :FOR i = l TO 4000 jNEXT 

2280 sp=0:GOTO 830 

2290 ’-Endabf rage- 

2300 INK 1,25 iLOCATE 1,24:PRINT CHRS<19>; 

2310 LOCATE 6,5:PEN 2:PRINT "Wie soll’s weitergehe 
n ?" 

2320 LOCATE 6.8:PEN 3:PRINT nSchate Runde 


Ew3 


2330 

LOCATE 

6 ,10:PRINT 

"- neues Spiel 

tnl 

2340 

LOCATE 

6 ,12:PRINT 

Regeln Indern 

Cal 

2350 

LOCATE 

6,14:PRINT 

"- Ende 

Lei 


2360 LOCATE 12,17|PEN 2:PRINT "Bitte wlhlen ... 
2370 a*=INKEY*:IF a*=’"‘ THEN 2370 : GOTO 2380 
2380 IF a*="w" THEN sp=0 tGOTO 830 
2390 IF a*="a" THEN GOTO 730 


2400 IF a*="n" THEN ERASE namt.scr :GOTO 620 
2410 IF a*="e" THEN 2540 ELSE 2370 : END 
2420 ’ - 2. Runde - 

2430 FOR i=1 TO 200 :rmb=INT(RND*590+16> :rmc=INT( 
RND*380+16) :PLOT rmb,rmc,2 

2440 BORDER rmb MOD 2:SOUND 2,rmc+800,1,6,,3:BORDE 

R rmc MOD 2iBORDER 0 sNEXT 

2450 RETURN : END 

2460 ’ - 1. Runde - 


2470 hx = l1 : vy=4 
2480 FOR i = 1 TO 10 

2490 rmb=INT(RND(1> *3) : IF rmb=0 THEN rmb=3 
2500 rmc =* INT (RND < 1) *7) tr2-rmc+rmc : IF r2-14 THE 
N r2=13 

2510 IF rmb=l OR rmb=2 THEN cha=143 ELSE cha=148 
2520 LOCATE#1, hx +rmc,vy«PEN#1,2:PRINT#1, CHR*<cha 
>; 

2530 hx=hx-l :vy=vy+2 :NEXT i :RETURN 
2540 MODE 11 END 
2550 SYMBDL AFTER 62 

2560 SYMBOL 64,192,159,129,141,171,172,250, 3 

2570 SYMBOL 96,112,216,208,248,204.204.248.192 
2580 SYMBOL 123,102, 0, 60,102,102,102, 60, 0 

2590 SYMBOL 124,102, 0,120, 12,124,204.118, 0 

2600 SYMBOL 125,102, 0,102,102,102,102, 62, 0 

2610 SYMBOL 132.136,112,250.255,250,112.136, 0 

2620 SYMBOL 137, 32, 34, 36,149, 90, 52, 24, 60 
2630 SYMBOL 148,227,133.170, 46, 48, 84.104,131 
2640 SYMBOL 217, 0, 28, 38,109,221,165,162,124 

2650 SYMBOL 220, 49. 83,142,109. 42, 52,168,112 
2660 SYMBOL 221,168,196, 74, 41, 18, 13, 4, 3 
2670 SYMBOL 222. 3, 4, 13, 18, 33, 90,164,136 
2680 SYMBOL 223,192,160,176, 72,132, 90, 37, 17 
2690 SYMBOL 248,124,247,124, 40,100,122, 42, 60 
2700 SYMBOL 249, 60, 90,189,165,255,165.255. 60 
2710 SYMBOL 250, 62,239, 62, 20. 38. 70, 94, 52 
2720 SYMBOL 252,129,102,153,102, 24, 65, 18, 24 
2730 SYMBOL 253,148,170,169, 85,137,126,211,126 
2740 SYMBOL 254,136, 20, 8, 52,74, 163, 66, 60 

2750 ENV 3,14,-1,1, 10,-1,1 
2760 ENT 2,14,-1,2, 10,-1,2, 5,-1,2 
2770 ENV 5,32,-2,2, 16,2,2, 32,-2,2 
2780 ENT 4.15,-1,4, 12,-1,3, 10,-1,2, 8,-1,1 
2790 ENV 6.10,1,2,15,-1,2,10,1,2 
2800 RETURN :END 

2810 SOUND 1,134,15,0,6,,6:S0UND 1,169,15,0,6,,6:S 
OUND 1,142,15,0,6,,6:RETURN:END 
2820 ’ =«» F'l ot-Data’ s ===== 

2830 ’ - - ’Z’ - 

2840 DATA 160,192,xn,064,064,192,yp,272,064,272,xp 
,140,140,272,yp,304 

2850 DATA 140,304.xn,064,064,304,yp,320,064,320,xp 
.160,160,320,yn,256 

2860 DATA 160,256,xn,080,080,256,yn,224,080,224,xp 
,160,160,224,yn,192 
2870 ’-’ e’- 

2BB0 DATA 288.192,xn,192,192,192,yp,288,192,288,xp 
,288,288,288,yn,240 

2890 DATA 288.240,xn,224,224,240,yp,256,224, 256,xn 
,208,208.256,yn,224 

2900 DATA 208,224,xp,2B8.288,224,yn,192.272,256,xn 
.240,240,256,yp,272 

2910 DATA 240,272,xp.272,272,272,yn,256 
2920 •-’n'- 


2930 DATA 336,192,xn,320,320,192,yp,28B,320,288,xp 
,336,336,288,yn,272 

2940 DATA 336,272, xp, 352,352,272,yp,288.352,288, xp 
,416,416,288,yn,192 

2950 DATA 416,192,xn,400,400,192,yp,272,400,272,xn 
,368,368,272,yn,256 

2960 DATA 368,256,xn,336,336,256,yn,192 


2970 ’-’o’-- 

2980 DATA 544,192.xn,448,448,192,yp,288,44S,2BB,xp 
,544.544.288,yn,192 

2990 DATA 528,224,xn,464,464,224.yp,272.464,272,xp 
,528,528,272,yn,224 

3000 ’ - - - Apostroph und ’s’ - - — 

3010 DATA 564,288,yp,326,564,326,xn.540,540,326,yn 
,298,540,298,xp,554 

3020 DATA 554.298,yn,288,554,28B,xp.564 

3030 DATA 598,288,xn.576,576,2BB,yn,268,576,268,xp 

,592,592,268,yn,256 

3040 DATA 592,256,xn,576,576,256,yn,250,576,250,xp 
,598,598,250,yp,274 


3090 
3100 DATA 
3110 DATA 
3120 DATA 
3130 DATA 
3140 DATA 
3150 DATA 


3050 DATA 598,274,xn,582,582,274,yp,282,582,282,xp 

,598,598,282,yp,288 

3060 ’ - - - Kasten - - - 

3070 DATA 065 , 150 ,xp,545,545,150,yn,120,545,120,xn 
,065,065,120,yp,150 
3080 DATA 0,0,ff,0 

Beschreibung - 

"Zenoboy, er erscheint unten in der" 
"rechten Ecke wenn man die Cursortaste" 
"Clinksl betltigt, mu' sieben Turtles” 
"in die Grube setzen, ohne dabei ein-" 
"mal ’baden’ zu gehen." 

"Wie nahe man diesem Ziel tatslchlich" 
3160 DATA "gekommen ist, dokumentiert der 'Set'-" 
3170 DATA "Z!hler. Geht man 'baden', so verliert" 
3180 DATA "zwar vorher gemachte Punkte nicht," 
3190 DATA "setzt den ’Set'-Zlhler aber wieder " 
3200 DATA "auf 0. Wie oft man sich da' leisten" 
3210 DATA "darf, wird durch 'Chance’ festgelegt." 
3220 DATA "Um eine Turtle zu fangen genlgt es." 
3230 DATA "sie genau in den Klfig, den Zenoboy" 
3240 DATA "mit hat, hinlaufen zu lassen. " 

3250 DATA "Die COPY-Taste dient als Lockruf und" 
3260 DATA "zum Absetzen der Turtles in die Grube." 
3270 ’ 

3230 DATA "Die Führung des Zenoboy ist nicht" 
3290 DATA "ganz einfach, denn mit den vier Cur-" 
3300 DATA "sortasten werden acht Bewegungsrich-" 
3310 DATA "richtungen angesteuert." 

3320 DATA " 

3330 DATA "Hierzu nur drei Tips 

3340 DATA " " 

3350 DATA "1. Oben, rechts im Spielfeld ist ein" 
3360 DATA " Indl kator,der anzeigt ob ein Tas- 11 
3370 DATA "tendruck 'gebongt' ist oder nicht." 
3380 DATA "2. Bevor man hlpft, zunlchst die Ge-" 
3390 DATA " genrichtung testen. Reagiert der" 
3400 DATA "Indikator und findet keine Bewegung" 
3410 DATA "statt, dann gilt t" 

3420 DATA "Bewegungsrichtung (links/rechst) vor" 
3430 DATA "Hlpf-Richtung (hoch/runter ) !!" 

3440 DATA "3. Zenoboy mu' auf die hCchste Stel-" 
3450 DATA " le der Steine springen *" 

3460 ’ - Locate und CHRS-Data’s — 

3470 DATA 03,04,137,03,07,137,03,12,148,04,13,148, 
04,18,137,05,03,137 

3480 DATA 06,02,137,06,06,137,06,10,148,06,17.137, 
07,03,137,07,12,14B 

3490 DATA 07, 16, 137,08,06,137,08,18,137,09,OB,14B, 
09,11,148,10,03,137 

3500 DATA 10,09,148,11,07,148,11,10,148,11,12,148, 


11,16,222,11,17,223 

3510 DATA 12,02,217,12,06,148,12,08,148,12,11,148, 

12.15.222.12.16.207 

3520 DATA 12,15,222,12,16,207,12.17,207,12,18,223, 
13,03,137,13,09,148 

3530 DATA 13,14,222,13,15,207,13,16,207,13,17,207, 
13,18,220,14,02,137 

3540 DATA 14, 02,137,14,08,148,14,10,14B,14,14,221, 

14.15.207.14.16.207 

3550 DATA 14,17,220,15,03,137,15,06,140,15,09,148, 
15,15,221,15,16,220 

3560 DATA 16,04,148,16,06,148,16,07,148,16,08,148, 
16,10,148,16,13,217 

3570 DATA 17,05,148,17,07,148.17,12,137,18,02,137, 
18,04,148,18,06,148 

3580 DATA 18,10,137,18,12,217,18,14.137,18,16,217, 
19,06,148,19,18,137 

3590 DATA 20,03,140,20,08.148,20,12,217,20,17,137, 
21,04,148,21,10,217 

3600 DATA 21,14,137,21,16,217,22,15,217,22,17,217, 
23,16,217,01.01,333 
3610 END :’- 














Utility 

24 

Schneider spezial 



Die Unterschiede 
zwischen CRC 464 
und CPC 664 


Schneider »CPC 664« 
mit Color-Monitor 


Der einzige Unterschied zwi¬ 
schen den beiden Schneidercom¬ 
putern scheint die Diskette zu sein, 
die beim 664 an der Stelle des Kas¬ 
settenrekorders sitzt. Aber es gibt 
noch andere Unterschiede, so frap¬ 
pierende sogar, daß einige 464- 
Programme nicht auf dem 664 lau¬ 
fen. 

Der Unterschied, der am meisten 
auffällt, nämlich die statt des Kas¬ 
settenrekorders eingebaute Dis¬ 
kettenstation, ist noch der gering¬ 
ste. Denn obwohl in der Hardware 
des 664 einiges geändert wurde, so 
zum Beipiel eine leicht unter¬ 
schiedliche Floppyschaltung, sind 
die beiden Computer hardware¬ 
mäßig absolut kompatibel (verträg¬ 
lich). „Na also, wo liegt dann das 
Problem?“, werden Sie jetzt viel¬ 
leicht fragen. Tatsächlich gäbe es 
überhaupt kein Problem, wenn die 
Entwickler von Amstrad (dem eng¬ 
lischen Hersteller) es damit belas¬ 
sen hätten. Leider aber beschloß 
man dort, das sowieso recht gute 
BASIC um einige neue Befehle zu 
erweitern, über deren Sinn man 
sich streiten kann. Das hatte zur Fol¬ 
ge, daß viele Programme, die ir¬ 
gendwelche Unterprogramme aus 
dem BASIC benutzten, nicht mehr 
funktionierten. Ebenso solche Pro¬ 
gramme, die auf den Vanablenbe- 
reich von BASIC zugreifen, d.h. auf 
den RAM-Block, in dem BASIC sol¬ 
che Daten wie HIMEM, Anfangs¬ 
und Endadresse eines BASIC-Pro- 
gramms etc. (zum Vergleich: die 
Startadresse eines BASIC-Pro- 
gramms steht beim 464 an den 


Adressen&AE81 
/&AE82, beim 
664 an den 
&AE64/&AE65, 
die Endadresse 
folgt entspre¬ 
chend in den 
beiden Bytes da¬ 
hinter) ablegt. 

BASIC-Erweite- Schneider »CPC 464« 
rangen sind da- mit Coior-Momtor 

mit „prädesti¬ 
nierte Abstürz- 
ler ". 

Auch das Betriebssystem wurde 
geändert. Vielen von Ihnen ist si¬ 
cher bekannt, daß das ROM der 
Schneider-Computer in zweimal 16 
K Byte aufgeteilt ist: Einmal das be¬ 
reits erwähnte BASIC, das „oben" 
im letzten Viertel des Speichers 
liegt und dann noch das Betriebs¬ 
system, das im ersten Viertel, also 
den untersten 16k Byte liegt. Und 
auch das Betriebssystem ist von 
den Änderungen nicht verschont 
geblieben. Um nämlich auch unter¬ 
brochene Linien zeichnen zu kön¬ 
nen (mit MASK), mußten die Grafik¬ 
programme im Betriebssystem ge¬ 
ändert werden, wodurch sich na¬ 
türlich auch alle folgenden 
Unterprogramme verschoben. 
Daß die meisten alten 464-Program- 
me trotz der Änderung im Betriebs¬ 
system noch immer auf dem 664 
laufen, ist nur einem Trick zu ver¬ 
danken: Die einzelnen Unterpro¬ 
gramme werden in beiden Compu¬ 
tern nicht direkt angesprungen, 
sondern über Vektoren, also 
Sprungbefehle, die ihrerseits an 


die richtige Stelle springen. Wenn 
sich diese Ansprungadresse än¬ 
dert, macht das gar nichts, da zwar 
der Sprungbefehl geändert wer¬ 
den muß, aber immer noch an der¬ 
selben Stelle steht. 


So können Programme unterscheiden, auf 
welchem der beiden Computer sie gerade 
laufen: 

10 a=peek(&Bßf A) 

20 if a=54 then print "Das ist ein 464!" 

30 if a=162 then print "Es ist ein 664!" 


Zusammenfassend kann man sa¬ 
gen, daß folgende Programmtypen 
besonders gefährdet sind, auf dem 
664 nicht korrekt zu laufen, wenn 
sie für den 464 geschrieben wur¬ 
den; 

BASIC-Erweiterungen, sofern sie 
nicht über RSX laufen, 
alle Programme, die Daten vom 
BASIC übernehmen, 
alle Programme, die nicht die 
Sprungvektoren benutzen. 

BASIC-Programme werden in 
der Regel ohne Probleme laufen. 
Für den Diskettenbetrieb ergeben 
sich keine Probleme, da das DOS 
(Disc Operating System) gleich ge¬ 
blieben ist. 
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Wir haben gezeigt, daß der 
Hauptunterschied zwischen den 
beiden Schneider-Computern 
CPC 464 und CPC 664 hauptsäch¬ 
lich in einem geänderten Betriebs¬ 
system und in einem geänderten 
BASIC zu suchen ist. An dieser 
Stelle werden wir mehr ins Detail 
gehen und zeigen, welche Unter¬ 
programme und Speicheradres¬ 
sen sich geändert haben. 

Beginnen wir mit dem Offensicht¬ 
lichsten: dem geänderten BASIC. 
Wie allgemein bekannt, hat der 
CPC 664 einige neue Befehle dazu¬ 
bekommen, die natürlich auch 
Platz im BASIC-ROM beanspru¬ 
chen. Dadurch hat sich die Lage 
der einzelnen BASIC-Routinen ge¬ 
ändert, und Programme, die direkt 
Unterprogramme aus dem BASIC 
von &c000-&ffff verwenden, rufen 
beim 664 eine falsche Adresse auf, 
was die unvorhergesehensten Er¬ 
gebnisse produzieren kann. Die 


BASIC-Routinen 


Adressen der BASIC-Befehle bei 
beiden Computern finden Sie in Ta¬ 
belle Nr. 3. Bei den neuen Befehlen 
stellt sich die Frage, woher die 
Amstrad-Programmierer die zuge¬ 
hörigen Tokens bekommen haben. 
(Der Computer speichert BASIC- 
Befehle nicht als einzelne Buchsta¬ 
ben, sondern als Zahl ab, um Spei¬ 
cherplatz zu sparen und weil so ei¬ 
ne höhere Geschwindigkeit erzielt 
werden kann. Eine solche Zahl 
nennt man TOKEN.) Nun, des Rät¬ 
sels Lösung: Der 464 nutzte nicht 
alle Werte von + 80 — + FF, denn so 
viele Befehle waren nicht vorhan¬ 
den, vor allem da es für die gesam¬ 
ten Funktionen (also Befehle, die ei¬ 
ne Zahl oder einen String zurück¬ 
liefern) eine extra Tabelle gibt, so 
daß ein Funktions-Token aus zwei 


Bytes besteht: + FF zur Kennzeich¬ 
nung, daß nun ein Funktionstoken 
folgt und dann erst das eigentliche 
Token. So blieben einige Werte 
zwischen + DB und + E3 ungenutzt, 
die der 664 jetzt verwenden kann. 
Tabelle Nr. 2 zeigt die neuen To¬ 
kens. Übrigens: Wenn ein 464 in ei¬ 
nem Programm auf ein solches 664 
Token stößt, meldet er einen 
Syntax-Error, und Zeilen, die ein 
664 Token enthalten, können auf ei¬ 
nem 464 nicht geLISTet werden. So¬ 
viel zum BASIC. 

Was ist aber mit dem Betriebs¬ 
system passiert? Auch dieses 
wurde geändert. Durch Änderun¬ 
gen bei den Grafikroutinen haben 
sich die folgenden Routinen ver¬ 
schoben und liegen an anderen 
Stellen. Auch wurde der Code opti¬ 
miert, und so ist z.B. die Routine KL 
EVENT ein Byte kürzer geworden. 
Da aber alle Betriebssystem-Funk- 


Tabel1e Nr.3 

Die Adressen der Routinen der Basicbe-fehl e. Beim 464 steht die 
Tabelle, in der diese Adressen nach auf steigenden Tokens 
sortiert sind, van ttDE01-#DEB9, beim 664 van »DEE5-DDFAB. 


464-Adresse 

664-Adresse 

Be-f ehl srouti ne von... 

Token 

464-Adresse 

664-Adresse 

Befehlerautine von... 

Token 

C971 

CA25 

AFTER 

80 

C12B 

CI 28 

NEW 

Bl 

CODF 

COEA 

AUTO 

81 

C7E3 

C895 

ON 

B2 

C221 

C24B 

BORDER 

82 

CBCB 

C979 

QN BREAK 

B3 

F1BA 

F261 

CALL 

B3 

CBF8 

CCCD 

ON ERROR GOTO 

B4 

D246 

0299 

CAT 

B4 

C940 

C9FB 

ON SO 

B5 

EA3C 

EB02 

CHAIN 

83 

D25F 

D2B7 

OPEN1N 

B6 

CI 32 

C12F 

CLEAR 

86 

D256 . 

D2AB 

OPENOUT 

B7 

C4B5 

C509 

CLG 

87 

C4BC 

C4E1 

ORIGIN 

B8 

D298 

D2F0 

CLOSEIN 

B8 

Fl 77 

F228 

OUT 

B9 

D2A1 

D2F8 

CLOSEOUT 

89 

C20A 

C23C 

PAPER 

BA 

C25A 

C283 

CLS 

9A 

C212 

C227 

PEN 

BB 

CBCO 

CC96 

CONT 

8B 

C4D0 

C546 

PLOT 

BC 

E8EF 

E9A8 

DATA 

BC 

C4D5 

C54B 

PLOTR 

BD 

Dl 17 

D174 

DEF 

8D 

F15F 

F214 

POKE 

BE 

D61B 

D657 

DEFINT 

BE 

FIFD 

F2A9 

PRINT 

BF 

D61C 

D65B 

DEFREAL 

BF 

E8F3 

E9AC 

' 

CO 

D614 

D6S3 

DEFSTR 

90 

D4EB 

D530 

RAD 

CI 

D4E7 

D52C 

DEG 

91 

0559 

DS9C 

RANDOMIZE 

C2 

£728 

E7F3 

DELETE 

92 

DCEB 

DCDF 

' READ 

C3 

D67D 

D6B9 

DIM 

93 

D31E 

D373 

RELEASE 

C4 

C4C6 

C53C 

DRAW 

94 

E8F3 

E9AC 

REM 

C5 

C4CB 

C541 

DRAWR 

95 

E7DF 

EBA3 

RENUM 

C6 

C052 

C046 

EDIT 

96 

DCD9 

DCCD 

RESTORE 

C7 

E8F3 

E9B2 

ELSE 

97 

CC03 

CCD8 

RESUME 

C8 

CB65 

CC34 

END 

98 

C70F 

C7B3 

RETURN 

C9 

D385 

D3D7 

ENT 

99 

E9BD 

EA7D 

RUN 

CA 

D34E 

D3A1 

ENV 

9A 

EC09 

ECE1 

SAVE 

CB 

D9CO 

D9F4 

ERASE 

9B 

D2CO 

D316 

SOUND 

CC 

CA8F 

CB54 

ERROR 

9C 

D494 

D4DE 

SPEED 

CD 

C979 

CA2D 

EVERY 

9D 

CB5A 

CC29 

STOP 

CE 

C529 

C5D7 

FOR 

9E 

F69D 

F784 

SYMBOL 

CF 

C6ED 

C78F 

GOSUB 

9F 

C319 

C346 

TAG 

DO 

C6E8 

C7B9 

GOTO 

AO 

C320 

C34D 

TAG OFF 

Dl 

C6C7 

C76A 

IF 

Al 

DDE6 

DECA 

TRON 

D2 

C22A 

C254 

INK 

A2 

DDE2 

DEC6 

TROFF 

D3 

D82B 

DB48 

INPUT 

A3 

F17D 

F22E 

WA IT 

D4 

D439 

D489 

KEY 

A4 

C776 

C81D 

WEND 

D5 

D654 

D691 

LET 

A5 

C747 

C7EA 

WH ILE 

D6 

DAF8 

DB1B 

LINE 

A6 

C3E3 

C42D 

WIDTH 

D7 

E0F7 

E1D2 

LIST 

A7 

C2E1 

C311 

WINDOW 

DB 

E9F6 

EABA 

LOAD 

A8 

F47B 

F50D 

ZONE 

D9 

C2D2 

C302 

LOCATE 

A9 

F1F6 

F2A2 

WRITE 

DA 

F4EF 

F570 

MEMORY 

AA 

CSE 1 

C99A 

DI 

DB 

EAA6 

EB39 

MERGE 

AB 

CBE7 

C9A0 

EZ 

DC 

F993 

FA07 

MID* 

AC 

n. v- 

C315 

FILL 

DD 

C24F 

C27B 

MODE 

AD 

r - v. 

C59D 

GRAFIKS 

DE 

C505 

C332 

MOVE 

AE 

n. v. 

CSC3 

MASK 

DF 

C50A 

C537 

MOVER 

AF 

n. v. 

BDI 9 

FRAME 

EO 

C5FB 

C6A3 

NEXT 

BO 

n, v. 

C363 

CURSOR 

El 
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Die Adressen der Routinen von BÄSIC-Befehlen 


Tabelle 2: Die neuen 664-Tokens. 

Wert 

Token 

DD 

FILL 

DE 

GRAPHICS 

DF 

MASK 

EO 

FRAME 

El 

CURSOR 

neue Funktionen: (vor dem Token 

steht bei einer Funktion FF) 

U9 

DERR 

7E 

COPYCHRS 

al le 

Zahlen in hexadezimal 


tionen über die Vektoren (spezielle 
Sprungbefehle, die immer an der 
gleichen Stelle stehen) aufgerufen 
werden, spielt es im Endeffekt kei¬ 
ne Rolle, was wo im ROM liegt, 
Hauptsache, die Vektoren stim¬ 
men. Für uns sind die vom Be¬ 
triebssystem genutzten RAM- 
Adressen wesentlich interessan¬ 
ter, da sich hier die Möglichkeit 
bietet, direkt vom BASIC — mit ein 
paar simplen Pokes — Einfluß auf 


Tabelle 1: 

Die wichtigsten 

Basicadressen beim 464/664 

Adresse bei 

Bedeutung 

Cpc 464 / 

Cpc 664 

der Adresse 

AB80-ABFF 

AB80-ABFF 

Zei chenntatrix CHR* (240) -CHR$ (255) 

ACOÖ 

ACOO 

Flag:Blanks ignorieren 

ACIC 

ACOl 

Flag:Auto Mouds 

AC1D-AC1E 

AC02-AC03 

Zeilennummer -für AUTO 

AC1F-AC20 

AC04-AC05 

Zeilenplus -für AUTO 

AC21 

AC06 

I/O Out-Nummer 

AC22 

AC07 

I/O In—Nummer 

AC23 

AC08 

Position des Druckkapfs 

AC24 

AC09 

Wert von WIDTH 

AC34-AC35 

AC19-AC1A 

Adresse von ON BREAK 

ACA4-ADA3 

AC8A-AD89 

Eingabepuffer 

ADAA 

AD8D 

Letzte Fehlernummer 

AE45 

AE2C 

Flag:Beschütztes Programm 

AE7B-AE7C 

AE5E-AE5F 

HIMEM 

AE7D-AE7E 

AE60-AE61 

Ende freies Ram 

AE7F-AES0 

AE62-AE63 

Anfang freies Ram 

AEB1-AE82 

AE64-AE65 

Startadresse des Basicprogramms 

AE83-AE84 

AE66-AE67 

Endadresse des Basicprogramms 

AE85-AE36 

AE6B-AE69 

Beginn Variablenbereich 


solche Funktionen wie Kassetten¬ 
schreibgeschwindigkeit oder Gra¬ 
fikhintergrund zu nehmen. In Ta¬ 


belle Nr, 4 sind die wichtigsten 
Adressen für beide Computer auf¬ 
geführt. TMB 


Tabelle Nr.4: Die wichtigsten Betriebssystem—RAM-Adressen bei beiden Computern. 

Adresse bei 464 

664 

und ihre Bedeutung 

blc8 

b7c3 

aktueller MODE 

b lca 

b7c5 

Bi 1dschirmadresse 

blcb 

b7c6 

High-Byte Bildschirmadresse 

blcf 

b7ca 

Bit-Masken für Punkte:Abhängig von 

Mode 

bld7 

b7d2 

Blinkzeiten für Farben 

b288 

b729 

akt. Textfenster oben 

b2B9 

b72a 

akt. Textfenster links 

b28a 

b72b 

akt. Textfenster unten 

b28b 

b72c 

akt. Textfenster rechts 

b28d 

b72e 

Cursor Flag 

b28f 

b72f 

aktuelle Pen-Farbe 

b290 

b730 

Farbe für Paper 

b32B 

b693 

Grafik X—Origin 

b32a 

b695 

Grafik Y-Origin 

b32c 

b697 

Grafikcursor X-Koordinate 

b32e 

b699 

Grafikcursor Y-Koordinate 

b330 

b69b 

Grafikfensterposition links 

b332 

b69d 

"" rechts 

b334 

b69f 

oben 

b336 

b6a 1 

"" unten 

b33B 

b6a3 

Grafikfarbstift 

b339 

b6a4 

Kodierte Farbe für Grafik-Paper 

b4e7 

b63 1 

Status SHIFT-Lock 

b4eB 

b632 

Status CAPS-Lock 

b800 

bl 18 

FlagsKasettenmeldungen an/aus 

b8d 1 

ble9 

Kassettensehreibgeschwindigkeit 

bBd2 

b lea 



















Galten vor ein paar Jahren noch 
Speicherkapazitäten von 16KB als 
guter Durchschnitt, so müssen es 
heute 64KB sein. Der Schneider 
hat diese 64 KB freies RAM, aber 
u.U. reicht auch das nicht aus. Bei 
Anwendungen wie Datenbanken 
erscheint schnell die Meldung 
’Out of Memory 5 und läßt einen 
ratlosen Benutzer zurück. Auch 
ist ein ernsthaftes Arbeiten mit 
dem Schneider-CP/M, das dem 
Anwenderprogramm nur noch 
38KB Speicher übrig läßt, nur 
sehr schwer vorstellbar. 


Die Lösung: Vortex 


Schneider hat dieser Entwick¬ 
lung mit seinem 6128, der 128KB 
bietet, Rechnung getragen, aber 
was macht derjenige, der seinen 
464 zu Hause stehen hat? Nun, ob¬ 
wohl sich die Schneider-Computer 
aufgrund ihrer 'Mmimalkonzep- 
tion’ nur sehr schwer erweitern las¬ 
sen, hat die Firma Vortex das Kunst¬ 
stück fertiggebracht, eine Spei¬ 
cherkarte zu entwickeln, mit dem 
Anwendern bis zu 512KB zur Verfü¬ 
gung stehen. Man kann dabei zwi¬ 
schen mehreren Karten wählen 
und seinen Rechner auf den Wert 
aufstocken, den man braucht (was 
natürlich auch davon abhängt, wie 
'flüssig 1 man gerade ist). Kleinere 
Karten kann man dann auch nach¬ 
träglich weiter ausrüsten, bis zum 
maximalen Wert von einem halben 
Megabyte, mit dem wohl jeder aus- 
kommen dürfte. 

Die Karte selber ( uns stand die 
SP512, also die Maximalausführung 


Das 512 KB-Konzept 



Tabelle 1: 

Zusatz 1 i ehe 

Bas i c“Bef eh1e. 

BANK 

L. I ST 

RECORDS 

BASIC 

LÜAD 

RETURN 

BÜS 

MASK 

RUN 

CALL 

MON 

SAVE 

COMMON 

NEW 

SCREEN.IN 

DEV 

PEEK 

SCREEN.OFF 

FAST 

POKE 

SCREENS 

FRAME 

RAMCLOSE 

UNMASK 

GGSUB 

RAMFIELD 

VIDEO.ÖN 

SPARER 

RAMÜPEN 

VIDEO.OFF 

GPEN 

RAMREAD 


ID 

RAMWRITE 



Leichter Einbau 


zur Verfügung) macht einen sehr 
sauber verarbeiteten und profes¬ 
sionellen Eindruck. Platine und 
Verarbeitung sind durchaus Indu¬ 
striequalität, wenn auch noch eini¬ 
ge Kontakte über Drahtbrücken 
hergestellt wurden. Der Einbau ist 
auch für den Bastei-Unerfahrenen 
relativ einfach, da jeder Schritt im 
Handbuch genau beschrieben und 
auch mit Bildern illustriert wird. Be¬ 
merkenswert ist, daß man prak¬ 
tisch mit einem Schraubenzieher 
als Werkzeug auskommt, da kein 
Löten notwendig ist. Es werden ein¬ 
fach zwei ICs aus der Computer¬ 


platine genommen, in die Spei¬ 
chererweiterung eingesetzt, zwei 
Kontakte angeklemmt, und das war 
es dann auch schon. Bei sorgfälti¬ 
ger Arbeit und nochmaligem 
Check haben wir nur eine halbe 
Stunde gebraucht, bis der Compu¬ 
ter wieder betriebsbereit war. 


Zusätzliche Software 


Schaltet man den Computer ein, 
erscheint außer der Einschaltmel- 
dung auch noch ein Logo der Spei¬ 
cherkarte. Darin wird der Benutzer 
darüber informiert, wieviel Spei¬ 
cherkapazität ihm nun zur Verfü¬ 


gung steht und wie diese sich auf¬ 
teilt (Daten/Programm/Drucker¬ 
spooler). 

Die Vortex-Erweiterungen ver¬ 
wenden zum Verwalten des Spei¬ 
chers dasselbe Prinzip, wie es der 
6128 tut: Bank-Switching. Das heißt, 
man hat nicht immer gleichzeitig 
den gesamten Speicherraum zur 
Verfügung, sondern kann jeweils 
auswählen, mit welchem Teil man 
arbeiten möchte. Dazu stehen eine 
Reihe von BASIC-Befehlen ( siehe 
Tabelle 1) zur Verfügung (die not¬ 
wendige Software liegt auf einem 
ROM auf der Karte, so daß sie 
gleich nach dem Einschalten zur 
Verfügung steht, ohne daß man et¬ 
was von Kassette/Diskette lesen 
müßte). Diese Befehle sind zum Teil 
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extrem wirkungsvoll. Dadurch 
wird der 464 leistungsfähiger als 
ein 6128, ist es doch sogar möglich, 
BASIC-Programme in verschiede¬ 
nen Speicher-'Bänken' miteinan¬ 
der zu verknüpfen. Besonders in¬ 
teressant ist die Möglichkeit, einen 
Druckerspooler zuzuschalten. Da¬ 
durch muß der Computer nicht 
mehr auf den Drucker (und der 
User auf den Computer) warten, 
sondern man kann, während der 
Drucker noch emsig an einem lan¬ 
gen Listing arbeitet, schon das 
neueste Computerspiel spielen. 
Doch die Aufzählung der neuen 
Möglichkeiten ist noch nicht zu En¬ 
de: Man kann mit Hilfe der neuen 
BASIC-Befehle Bilder im Speicher 
ablegen und in (Drittel-)Sekunden- 
schnelle wieder auf den Bild¬ 
schirm holen oder eine relative Da¬ 
tei im RAM anlegen, wodurch sehr 
komfortable und schnelle Datei¬ 
programme möglich sind. 


Ein neues CP/M 


Neben der Erweiterungskarte 
selber und dem Handbuch be¬ 
kommt der Käufer auch noch eine 
Kassette, auf der sich Hilfspro¬ 


gramme befinden. Damit ist es 
dann möglich, eine neue CP/M- 
Version zu erstellen, bei der 61KB 
TPA (Transient ‘Programm Area) 
zur Verfügung stehen. Erst da¬ 
durch wird der CPC auch wirklich 
100% CP/M-fähig. Gleichzeitig 
kann man nun aber auch noch ein 
drittes (simuliertes) Diskettenlauf¬ 
werk unter dem Namen C: anspre¬ 
chen, das im RAM liegt. Da dieses 
'Laufwerk' sehr viel schneller ist 
als die echten, bedeutet das bei 
Disk-intensiven Arbeiten (z.B. Ko¬ 
pieren) eine große Zeitersparnis. 
Der Inhalt der Pseudo-Diskette 
kann auch wieder auf andere Dis¬ 
ketten geschrieben werden. 


Pseudo-Floppy 


Zu guter Letzt soll auch noch ein 
Extra nicht unerwähnt bleiben, das 
man beim Kauf noch dazu be¬ 
kommt: Auf dem ROM, in dem die 



Kartensoftware steckt, war wohl 
noch etwas Platz, und so kommt der 
Benutzer in den Genuß eines sehr 
guten Maschinensprache-Moni¬ 
tors und einiger BASIC-Befehle, die 
den neuen 664 Befehlen entspre¬ 
chen (MASK etc.). Der Monitor ist, 
wenn auch sicherlich nur für eine 
kleinere Gruppe der Käufer inter¬ 
essant, ein professionelles Pro¬ 
gramm, das sogar einen Zeilenas¬ 
sembler enthält. 

Jeder, der sich für die Vortex- 
Speichererweiterung interessiert, 
sollte daran denken, daß einige 
der oben beschriebenen Möglich¬ 
keiten u.U. nur ab einer bestimmten 
Erweiterungsstufe arbeiten. Die 
Fa. Vortex gibt diesbezüglich si¬ 
cher gerne Auskunft. Zusammen¬ 
fassend kann man nur sagen: Die 
RAM-Karte ist ein gut durchdach¬ 
tes und konstruiertes System, das 
man jedem, der daran denkt, sei¬ 
nen Computer zu erweitern, nur 
empfehlen kann. 
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ZEICHENGENERATOR 

für den 

SCHNEIDER CPC 464 


Das Programm bietet einen Be¬ 
fehlssatz, mit dem man komforta¬ 
bel und doch einfach alle 256 
Zeichen des CPC neu gestalten 
kann. Im einzelnen sind folgende 
Möglichkeiten vorhanden: 

1. In einer 16 x 8 Felder großen 
Matrix werden jeweils auf Tasten¬ 
druck entweder die Zeichen von 0 
— 127 oder 128 — 255 ausgegeben. 
Das aktuelle Zeichen erscheint in 
einer 8x8 Matrix und kann hier 
geändert werden, wobei diese 
Änderung sofort in Originalgröße 
kontrolliert werden kann. Neben 
dem letztgenannten Feld erschei¬ 
nen die SYMBOL-Werte in dezima¬ 
ler Form, 

2. Das aktuelle Zeichen kann Pi¬ 
xel für Pixel geändert oder neuge¬ 
staltet, gespiegelt, gekippt, ge¬ 
dreht und invertiert sowie ein be¬ 
liebiges anderes Zeichen an des¬ 
sen Stelle kopiert werden. 

3. Nach Löschen aller Zeichen 
(auf Tastendruck) in der großen 
Matrix können — aus einzelnen 
Zeichen zusammengesetzt — gan¬ 
ze Schriftzüge und sonstige Ge¬ 
mälde in hochauflösender Grafik 
erstellt werden. 

4. Auf Wunsch generiert das 
Programm DATA-Zeilen mit den 
SYMBOL-Werten in hexadezimaler 
Form. Daraus können a) die Daten 
auf Kassette (oder Diskette) gesi¬ 
chert und später wieder in das 
Programm eingelesen werden, 
b) können die DATA-Zeilen gespei¬ 
chert werden. Mit MERGE lassen 
sie sich dann an eigene Program¬ 
me hängen und dort einiesen. 


Programmablauf 


10 — 100: Initialisierung. Farb- 
festlegung in Zeile 40. Ferner Di¬ 
mensionierung der Felder und De¬ 
finition der CURSOR Zeichen. 

110 — 160: Gestaltung der Über- 


1 '*********************************** 

2 '* ZEICHENGENERATÜR* 

3 '* fuer SCHNEIDER CPC 464 * 

4 '*********************************** 

5 '* ===> written 1985 by <=== * 

6 '* ——= > Dietmar Schulze <=== * 
10 '********************************** 


20 '*** INITIALISIERUNG *** 

40 BORDER 13:INK 0,0:INK 1,15:INK 2,26:INK 3,6 
50 MODE 1:CLEAR:char=0 

60 DEFINT a-z:SYMBOL AFTER O:KEY DEF 62,0 
65 OPENOUT"dummy H :MEMORY HIMEM-1:CLOSEOUT 
80 SYMBOL 127,255,255,255,255,255,255,255,255 
90 SYMBOL 126,60,126,231,195,195,231,126,60 
lOO DIM z(8,8),cl(255,8),z*(8),c*<8) 

HO '=== TITEL ===== 

120 PAPER 1:PEN 2:PRINT STRINGSC120,207):PEN 3 
130 PAPER O:LOCATE 3,2:PRINT CHR$C24)" Z E I C H 
EN-GENERATOR M CHR$(24) 

140 PLOT 8,393,3:DRAW 63l,393:DRAW 631,359:DRAW 8, 
359:DRAW 8,393 

160 GOSUB 4030:'==> zu MAIN SCREEN 
1000 '*********************** 

1010 •*** TASTATURABFRAGE *** 

1020 '*********************** 

1030 ke$=INKEY$:IF ke$="" THEN 1030 
1035 xI=0:yl=0:x2=0:y2=0 
1040 '=== CURSOR 1 ===== 

1050 IF INKEY(1)=0 THEN xl = l ELSE IF INKEY(8)=0 TH 
EN x 1 =-1 

1060 IF INKEY(0)=0 THEN yl=-l ELSE IF INKEY<2)=0 T 
HEN y1=1 

1065 '=== CURSOR 2 === 

1070 IF INKEY(1)>31 THEN x2=l ELSE IF INKEY(8)>31 
THEN x2=—1 

1080 IF INKEY(0)>31 THEN y2=-l ELSE IF INKEY(2)>31 
THEN y2=l 

1085 '=== POSITION CURSOR 1 === 

1090 IF x1< >0 THEN xpl=xp1+x1:IF xpl<l ÜR xpl>8 TH 
EN xpl=xpl—xl 

1100 IF y1< >0 THEN ypl=yp1+y1:IF ypl<l DR ypl>8 TH 
EN ypl=yp1—y1 

1110 IF xlOyl THEN GOSUB 2820: GOTO 1030 
1115 '=== POSITION CURSOR 2 === 

1120 IF x2<>0 THEN xp2=xp2+x2:IF xp2<l OR xp2>16 T 
HEN yp2=yp2-x2 

1130 IF y2< >0 THEN yp2=yp2+y2:IF yp2<1 OR yp2>8 TH 
EN xp2=xp2+y2 

1140 IF xp2<1 OR xp2>16 THEN xp2=ABS(xp2-l6) 

1145 IF yp2<1 OR yp2>8 THEN yp2=ABS(yp2-8) 

1150 IF x2< >y2 THEN GOSUB 2840:GOTO 1030 
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schrift, die während des Pro¬ 
grammlaufs erhalten bleibt. Aufruf 
Routine Hauptscreen ab 4030. 

1000 — 1480: Hauptschleife mit- 
Tastaturabfrage für den gesamten 
Befehlssatz. 

1040 — 1150: sind zuständig für 
qlie CURSOR-Pfeiltasten, und zwar 
ohne SHIFT für das einzelne Zei¬ 
chen, mit SHIFT für den Zeichen¬ 
satz. 

1320: mit [u] Umschalten auf den 
jeweils anderen Zeichensatz. 

1330: mit [ENTER] das fertige 
Zeichen sichern (SYMBOL). 

1340 — 1350: [L] löscht ohne 
SHIFT das Einzelzeichen, mit 
SHIFT den Zeichensatz 128 bis 255. 

2000 — 2880: sind für Unterrouti- 
nen zuständig: 

2270 — 2330: berechnen binär 
die Werte für Spiegelung und ru¬ 
fen zur Ausgabe die benötigten 
Routinen auf. 

2340 -2410: Dto. für das Drehen 
um 90 Grad. 

2420 — 2520:kopieren mit „c" ein 
gewähltes Zeichen in das kleine 
Fenster. Eingabe erfolgt hexadezi¬ 
mal = Zeilen- und Spaltennummer 
des großen Fensters. Abschluß 
der Eingabe mit ENTER. 

2530 — 2600: generieren mit ei¬ 
nem Trick eine DATA-Zeile im Be¬ 
reich der Zeilen 10000 — 10255. 
Die zusammengesetzte DATA-Zeile 
auf Variablen wird auf die kleine 
ENTER-Taste gelegt, zusammen 
mit einem „GOTO 2600 + 

CHR$(18)" Da der CPC bei 
Programm-Abbruch keine Varia¬ 
blen löscht, ist dieser Trick mög¬ 
lich. Nach einem WINDOW-Swap 
nimmt das Programm seine Arbeit 
wieder auf. 

2610 — 2690: schreiben die in 
DATA-Zeilen abgelegten Werte auf 
Kassette oder Diskette. 

2700 — 2760: lesen die Daten 
von Kassette/Diskette und ver¬ 
zweigen zum Generieren der Zei¬ 
chen mit dem SYMBOL-Befehl. 

2770 — 2820: lesen die Daten aus 
generierten DATA-Zeilen. 

2830 — 2880: Verzweigungen zu 
Unterroutinen je nach Bedarf. 

2840 — 2870: legt Positionen für 
LOCATE, TEST, PLOT fest und ver¬ 
zweigt zu den benötigten Ausga¬ 
beroutinen. 

2880: wandelt Dezimalwerte in 
hexadezimale Form um. 

3000 — 3240: enthalten die 
PRINT- und PLOT-Routinen. 

3040 — 3060: drucken Zeichen 
und Cursor im kleinen Fenster im 
Transparentmodus. 

3070 — 3120: plottet Zeichenpixel 
an die entsprechenden Stellen. 


1320 IF INKEY(42)=0 THEN char=ABS(char-128):cl=cha 
r:GOSUB 4120'==> ANDERER ZEICHENSATZ 
1330 IF INKEY(18)=0 THEN GOSUB 2870:'==> AKTUELLES 
ZEICHEN SICHERN 

1340 IF INKEY(36)=0 THEN SYMBOL cl,0,0,0,0,0,0,0,0 
:GOSUB 2850:'==> AKTUELLES ZEICHEN LOESCHEN 
1350 IF INKEY(36)=32 AND char=128 THEN FOR a=128 T 
O 255:SYMBOL a,0,0,0,0,0,0,0,0:NEXTsGOSUB 4140:'== 
> ZEICHENSATZ 128-255 LOESCHEN 

1360 IF INKEY(35)=0 THEN PAPER42,O:LQCATE#2,xp2,yp 

2:PRINT#2,CHR*(24)CHR*(1)CHR*(c1)CHR*(24);:PAPER#2 

,2:GOSUB 2870:'==> ZEICHEN INVERTIEREN 

1370 IF INKEY(37)=0 THEN SYMBOL cl,cl(cl,8) ,cl (cl, 

7),cl(cl,6),cl(cl,5),cl(cl,4),cl(cl,3),cl(cl,2),cl 

(c1,1):GOSUB 2850:'==> ZEICHEN KIPPEN 

1380 IF INKEY(60)=0 THEN GOSUB 2280:'==> ZEICHEN S 

PIEGELN 

1390 IF INKEY(61)=0 THEN GOSUB 2350:'==> ZEICHEN D 
REHEN 

1400 IF INKEY(62)=0 THEN a*=INKEYS:GOSUB 2430:'==> 
ZEICHEN COPIEREN 

1410 IF INK.EY (69) =0 THEN 2540: '==> DATA-ZEILE SCHR 
EIBEN 

1420 IF INKEY(9)=0 THEN z<xp1,yp1)=ABS(z(xpl,yp1)- 
1):GOSUB 3040:IF gl=0 THEN CLS#4:PRINT#4,,," >ENTE 
R< druecken, wenn Zeichen fertig!":gl=1'==> PIXEL 
INVERTIEREN 

1430 IF INKEY(69)=32 THEN 9010'==> DATA-ZEILEN AUF 
CASSETTE 

1440 IF INKEY(54)=0 THEN GOSUB 5030'==> BEFEHLSLIS 
TE 

1450 IF INKEY(71)=0 THEN GOSUB 2620'==> AUSGABE DA 
TA AUF CASSETTE 

1460 IF INKEY(58)=0 THEN GOSUB 2710'==> ZEICHEN VO 
N CASSETTE LESEN 

1470 IF INKEY(58)=32 THEN GOSUB 2780'==> EINLESEN 
AUS DATA-ZEILEN 
1480 -f r=FRE ( " ") : GOTO 1030 
2000 ' ********************** 

2010 ' *** UNTERPROGRAMME *** 

2020 ' ********************** 

2270 '=== ZEICHEN SPIEGELN === 

2280 FOR a=l TO 8 

2290 z*<a)=BINS(cl(cl,a),8) 

2300 z 1S (a) = " :FOR b=l TO 8 

2310 zl$(a)=zl$(a)+MIDS(z$ <a),9-b,l) 

2320 NEXT b:cl(cl,a)=VAL(zl$(a)):NEXT a 
2330 GOTO 2860 

2340 '=== ZEICHEN UM 90 GRAD DREHEN === 

2350 FOR a=l TO 8 

2360 z$(a)=BINS(cl(cl,a>,8):NEXT 
2370 FOR a=l TO 8: z IS (a) ="2<x " 

2380 FOR b=8 TO 1 STEP -1 

2390 zl$(a)=zl$(a)+MIDS(z$(b),a,l):NEXT b 
2400 cl(cl,a)=VAL(zl$(a)):NEXT a 
2410 GOSUB 2860:RETURN 
2420 '=== ZEICHEN COPIEREN === 

2430 CLS#4: bS= "SU" : PRINT#4 , " Welches Zeichen 

kopieren"," ( Hexadezimal = Zeile/Spalte ) ? ";C 
HRS(18); 

2440 a$=UPPERS(INK.EYS) : IF a*="" THEN 2440 
2450 IF INKEY(79)=0 AND LEN(b$)>l THEN PRINT#4,CHR 
*(8) CHRS(16>;:b*=LEFTS(b*,LEN(bS)-1):GOTO 2440 
2460 IF INKEY(18)=0 THEN 2500 
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3130 — 3190: fragen Zeichen im 
großen Fenster mit TEST ab, set¬ 
zen daraus in binärer Form die 
Werte für die Zeichen zusammen, 
drucken sie als Pixel und geben 
sie als Dezimalwert neben dem 
kleinen Fenster aus. 

3200 — 3240: definieren das 
neue Zeichen mit SYMBOL und 
geben es als ASCII-Wert aus. 

4000 — 4180: besorgen den Bild¬ 
schirmaufbau. 

4030 — 4090: bauen Windows 
auf und färben sie ein. 

4100 — 4180: für Texte, Numerie¬ 
rungen und Anfangswerte der 
CURSOR-Positionen. 

5000 — 5260: enthalten die Be¬ 
fehlsliste zur Bedienung. Sie kann 
jederzeit mit ,,b" abgerufen wer¬ 
den. 

9000 — 9070: speichern die ge¬ 
nerierten DATA-Zeilen als ASCII- 
Datei ,,DATAZEIL‘ auf Kassette 
oder Diskette ab. Von dort können 
sie mit ,,MERGE" an eigene Pro¬ 
gramme angehängt werden. 

10000 — 10255: enthalten schließ¬ 
lich die generierten DATA-Zeilen. 

11000: dient zum Erkennen des 
Endes beim Einlesen der Daten. 

Sämtliche im Programm einge¬ 
fügten REM-Statements werden 
vom Programm nicht angesprun¬ 
gen und können weggelassen 
werden. Sie dienen nur der Ver¬ 
ständlichkeit und Übersicht. 


WINDOWS 


.. 0: generelles Fenster ohne die 
Überschrift 

1: kleines Fenster für das ge¬ 
wählte Zeichen 

2: großes Fenster zur Ausgabe 
der gesamten Zeichensätze 

3: für Ausgabe der dezimalen 
SYMBOL-Werte 

4: für Kommentare und Anwei¬ 
sungen am unteren Bildschirm¬ 
rand. 


Variablenliste 


char: ist der Anfangswert der 
zwei Zeichensätze, entweder 0 
oder 128. Das Wechseln erfolgt 
durch 

„ABS(char-128),,. 

cl,cla: neue und alte ASCII- 
Werte des aktuellen Zeichens. 

cl(n,m): SYMBOL-Werte für das 
Zeichen. 


z(n,m): Pixelwerte des Zeichens 
(0 oder 1) 

z$(n),zl$(n): für SYMBOL-Werte 
in binärer Form 

fw: Dualwert für das PLOTTEN 
der Pixel 

gl: Flag für Ausgabe in 
WINDOW 4 

xpl.ypl.xl.yl: Positionswerte für 
Cursor in WINDOW 1 


xp2,yp2,x2,y2: für WINDOW 2 
xpla,ypla,xp2a,yp2a: für alte Po¬ 
sitionen 

xg,yg,xga,yga: Positionen für 
den Grafik-CURSOR 
xy: Relativwert für DRAWR- und 
TESTR-Befehl 

a,b,c: allgemeine Variablen für 
Schleifen usw. 

a$,b$,ke$: für INKEY$-Abfrage 
und Aufbau der Eingaben 


2470 IF (a$<"O" OR a*>"9") AND (a$<"A" OR a$>"F"> 
THEN 2430 

2480 b$=b$+a.$: IF LEN(b*)>3 THEN b$=LEFTS <b*,3) : GOT 
O 2440 

2490 PRINT#4,a$;:GOTO 2440 

2500 b$=LEFT:£ (b$+"00" ,3) : c=VAL <b$) : IF c<0 OR c>255 
THEN 2430 

2510 L0CATE#2, xp2,yp2:PAPER#2,Os PRINT#2,CHR$(1) CH 

R* <c>;:PAPER#2,2 

2520 GOSUB 2870:CLS#4:RETURN 

2530 '=== DATA-ZEILE FUER ZEICHEN SCHREIBEN ===== 
2540 WINDOW SWAP 0,4 

2550 PRINT,,,” KLEINE >ENTER<-Taste druecken !":P 
EN 3 

2560 GOSUB 2B80 

2570 KEY 139,CHR*<13)+RIGHT$<STR*(10000+cl),5)+" D 
ATA "+cl$+","+c$(1> + ”,“+c$(2)+ ","+c$(3)+”,”+c$(4) + 
" , "+c$ (5) + " , "+c* (6) +" , "+c* (7) +" , "+c$ <8) +CHR$ <13)+” 
goto 2600"+CHR$(13) 

2580 IF INKEY (6)00 THEN 2580 
2590 END 

2600 CLS:PEN 2:L0CATE 1,2:PRINT," Okay WINDOW S 
WAP 0,4:GOTO 1030 

2610 '=== ABSPEICHERN AUF CASSETTE ===== 

2620 OPENOUT "iZdaten" 

2630 CLS#4:PRINT#4,,,” REC und PLAY druecken, dann 
Leertaste" 

2640 IF INKEY <47)00 THEN 2640 ELSE CLS#4: PRINT#4, 
DATA werden gespeichert”; 

2650 RESTORE 9100 

2660 FOR a=0 TO 8:READ c*(a):NEXT 

2670 IF VAL(cS(0))>255 THEN CLOSEOUT:CLS#4:PRINT#4 
,,,“ Zeichen sind gesichertRETURN 
2680 FÜR a=0 TO B:PRINT#9,c*(a):NEXT 
2690 GOTO 2660 

2700 '=== DATEN VON CASSETTE === 

2710 CLS#4:PRINT#4,,," PLAY druecken, dann die L 

eertaste" 

2720 IF INKEY (47)00 THEN 2720 ELSE CLS#4: PRINT#4, 
DATEN werden eingelesen" 

2730 OPENIN"!Zdaten" 

2740 IF EOF THEN CLOSEIN:CLS#4:PRINT#4," DATEN 

sind eingelesen":GOSUB 4120:RETURN 
2750 INPUT#9,cl$:cl=VAL(cl$>:FOR a=l TO 8:INPUT#9, 
cl$:cl(cl,a)=VAL(cl$):NEXT 
2760 GOSUB 3210:GOTO 2740 
2770 '=== ZEICHEN AUS DATA-ZEILEN === 

2780 RESTORE 9100:CLS#4:PRINT#4,,," DATEN werd 

en eingelesen":FOR al=l TO 3000:NEXT 

2790 READ cl:IF c1>255 THEN CLS#4:PRINT#4,,," 

DATEN sind eingelesen“:GOSUB 4120:RETURN 
2800 FOR a=l TO 8:READ c1(c1,a):NEXT 
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2810 60SUB 3210:60TO 2790 
2B20 6DSUB 3040:RETURN 

2830 '=== VERZWEIGUNGEN ZU PRINTS & PLOTS === 

2840 c1=char+xp2-l+(yp2—l)*16:xg=(xp2-l)*16:yg=127 
— (yp2—1) * 16 

2850 FOR al = l TO 3:0N al GOSUB 3110,3140,3210:NEXT 
:RETURN 

2860 FOR al=l TO 3:0N al GOSUB 3210,3110,3140:NEXT 
:RETURN 

2870 GOSUB 3140:GOSUB 3210:RETURN 

2880 FOR a=l TO 8:c*(a)="&"+HEX*<c1<c1,a)):NEXT:c1 

*="S"."+HEX*(cl>: RETURN 

3000 '********************** 

3010 ’*** PRINTS S- PLOTS *** 

3020 *********************** 

3030 '=== CURSOR 1 DARSTELLEN === 

3040 fw=z(xp1,yp1>:L0CATE#1,xpla,ypla:PRINT#1,CHR* 
(32+z(xpla,ypla)*95); 

3050 LOCATE#!,xpl,ypl:PEN#l,3:PRINT#1,CHR*(22) CHR 

«(1) CHR«(126) CHR«(22) CHR*(0);:PEN#1,1 

3060 xpla=xp1:ypla=yp1 

3070 '=== PIXELS PLOTTEN === 

3080 PLOT xg+(xpl—1)*2,yg—(ypl—1)*2,fw:ORIGIN 112, 
81:PLOT (xp1 —1> *2,15-<yp1 —1)*2, f w 
3090 ORIGIN 353,177:RETURN 
3100 '=== ZEICHEN—2 DRUCKEN === 

3110 L0CATE#2,xp2a,yp2a:PRINT#2,CHR«(1>;CHR«(c1a) ; 

:PAPER#2,0:LOCATE#2,xp2,yp2:PRINT#2,CHR«(1 > ; CHR«(c 

1);:ORIGIN 353,177:PAPER#2,2 

3120 xp2a=xp2:yp2a=yp2:cla=cl:RETURN 

3130 *=== PIXELS ABFRAGEN === 

3140 CLS#3: FOR a=0 TO 7: z« (a+1)= "&x " : FOR b=0 TO 7 
3150 z(b+1,a+1> =TEST(xg+b*2,yg—a*2) 

3160 z« <a+1> =z*(a+1> +RI6HT«(STR«(z(b + 1,a+1)),1) 
3170 LOCATE#1,b+1,a+1:PRINT#1,CHR«(32+z(b +1,a+1)*9 
5); 

3180 NEXT b:cl(cl,a+l)=VAL(z«(a+l)):FRINT#3,cl(cl, 
a+1) 

3190 NEXT a:MOVE xg,yg:xga=xg:yga=yg:GOSUB 3040:PR 
INT CHR«(7);:RETURN 

3200 '== ZEICHEN GENERIEREN UND DRUCKEN === 

3210 SYMBOL cl ,cl(cl,1),cl(cl,2),cl(cl,3),cl(cl,4) 
,cl(cl,5),cl(cl,6),cl(cl,7),cl(cl,8) 

3220 LOCATE 8,17:PRINT CHR«(1) CHR*(cl>; 

3230 PEN 3:LOCATE 9,14:PRINT cl;SPACE«(4-LEN(STR«( 
c1))):PEN 1 

3240 CLS#4:gl=0:RETURN 

4000 ‘*************************** 

4010 '*** BILDSCHIRM - AUFBAU *** 

4020 '*************************** 

4030 ORIGIN 0,0:WINDOW 1,40,4,22:WINDOW#l,5,12,7,1 
4 : WIND0W#2,23,38,7,14:WIND0W#3,15,20,7,14:WIND0W#4 
,1,40,23,25 

4040 PAPER O:PEN 1:PAPER#1,2:PEN#1,1: PAPER#2,2:PEN 
#2,1:PAPER#3,0:PEN#3,2:PAPER#4,3:PEN#4,2:CLS:CLS#1 
:CLS#2:CLS#3:CLS#4 

4050 xy=16*8+3:PLOT 62,305,2:DRAWR xy,0:DRAWR 0,-x 
y:DRAWR -xy.O:DRAWR 0,xy 

4060 xy=xy+12:PLOTR -6,4,3:DRAWR xy,0:DRAWR 0,-xy: 
DRAWR -xy,0:DRAWR 0,xy 

4070 xy=xy-12:PLOT 350,305,2:DRAWR xy*2-3,0:DRAWR 
0,-xy:DRAWR -xy*2+3,0:DRAWR 0,xy 

4080 xy=xy+10:PLOTR -6,4,3:DRAWR xy*2-12,0:DRAWR O 
,—xy:DRAWR -xy*2+12,0:DRAWR 0,xy 

4090 PLOT 104,104,3:DRAWR 32,0:DRAWR 0,-32:DRAWR - 
32,0:DRAWR 0,32 

4100 LOCATE 5,2:PRINT"01234567 ";:PEN 2:PRINT"dezi 
mal ";:PEN 1:PRINT"01234567B9ABCDEF" 

4110 FOR a=4 TO 11:L0CATE 3,a:PRINT HEX*(a-4>:NEXT 
4120 CLS#2:LOCATE 4,14:PRINT"Wert:":LOCATE 14,14:P 
RINT"- ASCII - Werte:";:PEN 3:PRINT char;:PEN 1:PR 
INT"-";:PEN 3:PRINT char+127;CHR*(18);:PEN 1 
4130 FOR a=4 TO ll:LOCATE 21,a:PRINT HEX*(a-4+SGN< 
char)*8):NEXT 

4140 CLS#2:cl=char:xg=0:yg=127:cla=c1 

4150 LOCATE 16,17:PEN 3:PRINT"< b >> ";:PEN 1:PRIN 

T“Liste der Befehle"; 

4160 FOR a=char TO char+127:PRINT#2,CHR*(1) CHR*(a 
);:NEXT 

4170 xp1 = 1:ypl = l:xpla= 1 :ypla=l:xp2“l:yp2=l:xp2a=l: 
yp2a=l 

4180 GOSUB 2850:RETURN 
5000 ’******************** 

5010 ’*** BEFEHLSLISTE *** 

5020 '******************** 

5030 WINDOW 1,40,4,25:CLS:PRINT 


5040 RESTORE 5110 

5050 READ a*,b*:IF a*="0"THEN 5090 
5060 PEN 3:PRINT a*;:PEN 1:PRINT b* 

5070 IF VPOS(#0)=5 THEN PRINT 
5080 GOTO 5050 

5090 LOCATE 8,21:PRINT M Zurueck mit";:PEN 3:PRINT" 
LEERTASTE !";:PEN 1 


N 


5120 
r “ 

5130 

5135 

5140 

d" 

5150 

5160 

ad" 

5170 

5180 

5190 

5200 

5210 


IF INKEY*<>" 

DATA' 

'PFEILTA! 

DATA 

"mi t 

< 

DATA 

"COPY 

DATA 

"< 

c 

>> 

DATA 

"< 

d 

» 

DATA 

"< 

s 

>> 

DATA 

"< 

k 

» 

DATA 

"< 

i 

» 

DATA 

"< 

u 

» 

DATA 

"< 

1 

>> 

DATA 

"< 

L 

>> 

DATA 

"< 

a 

>> 


1 >>",“ Cursor kleines Fenster 

SHIFT >>“," Cursor grosses Fenste 

>> "/'Invertieren Pixel" 

,“Copieren des Zeichens" 

,"Drehen des Zeichens um 90 Gra 

,"Spiegeln des Zeichens" 


/‘Invertieren des Zeichens" 

,"Umschalten des Zeichensatzes" 
,"Laeschen des Zeichens" 
/'Loeschen Zeichensatz 128-255“ 
,*'AbIegen Zeichen in DATA-Zeile 



5220 

DATA 

"< 

A 

>> 

i sc " 
5230 

DATA 

"< 

z 

» 

5240 

5250 

DATA 

DATA 

"< 

e 

» 

c" 

5260 

DATA 

"< 

E 

>> 

1 en " 
5270 
9000 

DATA 

0,0 

ABSPEI Cl 

9010 

RESTORE 

9100 


'Abspeichern Zeilen au-f Cass/D 

'Zeichen aus DATA—Zeilen auf" 
'Cass/Disc sichern" 

'Einlesen Zeichen von Cass/Dis 

'Einlesen Zeichen aus DATA—Zei 


edrueckt ? ( J / N >";:WHILE INKEY(45)=INKEY(46):W 
END:CLS#4:IF INKEY(46>>-1 THEN 1030 

9020 PRINT#4,,," DATA-Zeilen werden gesichert";:S 
PEED WRITE 1:QPENOUT"!datzei1" 

9025 FOR a=0 TO 8:READ c*(a):NEXT 

9030 IF VAL(c*(0))>255 THEN CLOSEOUT:CLS#4:PRINT#4 
,,," DATA—Zeilen sind jetzt auf CASS/DISC";:FOR pa 
=1 TO 4000:NEXT:frei=FRE(""):CLS#4:GOTO 1030 
9040 zei1=10000+VAL(c*(O)):zei1*=RIGHT*(STR*(zei1) 
,5)+" DATA " 

9050 FOR a=0 TO 8:zei 1 *=zei1*+c*(a)+",":NEXT:zei1* 


=LEFT*(zei1*,LEN(zei1 *)—1) 

9065 PRINT#9,zei1* 

9070 GOTO 9025 

9080 ********************** 

9090 '*** DATA - ZEILEN *** 

9100 ’********************* 

9110 ’ 

9120 '== Hier entstehen die Datazeilen 
9130 '== van 10000 bis 10255 
11000 DATA 256,0,0,0,0,0,0,0,0 
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Schnelle 


Farbänderung 



10 i Listing 1 




20 i 




flCOO 

20 

org 

taÖOÖ 

jStartadresse iaööO 

AOÖO 

40 

ent 

f 



50 : 





60 ; ENT ist Anweisung (uer Schneider Oevpac Asseabler, 


70 ! und gibt die Startadresse 

an 


B0 : 




ACOO ÜIOOFO 

90 

Id 

bc. 1(000 

;Zaehlscfilei(e, Farben 1F0Ü0* aendern 

A003 C5 

100 loopl: push bc 

iretten 

A004 0S7F 

110 

ld 

b,17t 

;Part i7Fxx=Farben 

AOOo OE 10 

120 

Id 

c,H0 

jFarbe 14=Border 

AÜÜ8 ED« 

130 

aut 

(e),c 

«Palette Pointer ansprechen 

AOÖA EE5F 

140 

Id 

a,r 

;Farbe aus R-Register:2ufalI 

AÖÜC EA1F 

150 

and 

# i-f 

;»it 4IF aaskieren und 

AOOE F640 

160 

or 

140 

{■it 840 verknueplen, daiit Farbe legal 

A010 ED79 

170 

aut 

(c),a 

(Farbe ausgeben 

A012 CI 

1B0 


bc 

;EC wieder holen 

A013 OB 

190 

dec 

bc 

SBC=BC-1 

A0L4 78 

200 

Id 

a, b 


AOIS BI 

210 

ar 

c 

iBC=0" 

AO16 20EB 

220 

}<■ 

nz,laopl 

{Nein-Talles nocbeal 

AillB C9 

230 

ret 


iBC=0-;(ertig 

A019 

240 

end 


iFr. Ende 

Fass 2 errars: 

00 




Table used: 

25 fro« 

175 



Executes: 40960 





Die Sache, um die es geht, 
kann man lapidar als schnelle 
Farbänderung bezeichnen. Aber 
das wäre wirklich zu lapidar, denn 
damit kann man ziemlich beein¬ 
druckende Effekte erzielen (die je¬ 
denfalls solange noch beein¬ 
druckend sind, bis sie in jedem x~ 
beliebigen Programm auftauchen). 
Sicher haben Sie schon des öfte¬ 
ren, sei es durch ein BASIC- 
Programm, einen Programmab¬ 
sturz oder durch sonst etwas, gese¬ 
hen, wie es aussieht, wenn Ihr 
Schneider wild (und zufällig) die ei¬ 
ner Ink zugeordneten Farben än¬ 
dert, also z.B. Border oder Ink 0 
wild flackern. Tatsache ist, daß ei¬ 
nen so etwas nur beim allerersten 
Mal beeindruckt, wenn überhaupt. 
Und dafür wieder ist das 
Schneider-Betriebssystem ROM 
verantwortlich. Jedes Programm, 
auch BASIC, greift nämlich auf die 
entsprechenden Betriebssystem¬ 
routinen zu, um die Farben zu än¬ 
dern. Das ist nichts Neues. Interes¬ 
sant wird es erst, wenn man sich an¬ 
schaut, WANN dann das Betriebs¬ 
system die Farbe ändert. 


Erst kommt der 
Frame-Fly! 

Es trägt nämlich den neuen Farb¬ 
wert erst mal in die Farbtabelle ein 
und gibt dann die gesamte Tabelle 
aus, aber erst nach dem nächsten 
Frame-Fly, also dem Rücklauf des 
Elektrodenstrahls, der das Bild auf 
den Schirm zeichnet. Um wieder 
ein neues Bild zu zeichnen, muß 
der Strahl wieder oben links anfan¬ 
gen und wandert also von unten 
rechts nach oben links, um das 


nächste Bild zu zeichnen. Während 
dieser ..Wanderzeit“ wird auf dem 
Bildschirm nichts angezeigt, der 
Bildschirm leuchtet nur noch nach. 
Das heißt praktisch, daß 

a) man die Farben maximal 50x 
pro Sekunde ändern kann (50 Bil¬ 
der werden pro Sekunde ange¬ 
zeigt) 

b) daß immer nur eine Farbe pro 
Ink und pro Bild angezeigt werden 
kann. Und genau hier wollen wir 
ansetzen. Wenn wir nämlich die 
Farbe einer Ink während des Bild- 
aufbaus und nicht in der Pause da¬ 
zwischen ändern, und wenn wir 
das auch noch oft genug tun — 
dann haben wir die ersehnten be¬ 
eindruckenden Effekte. 


Listing 1! 


...tut genau das. Die Farbe wird 
F000 Hex mal geändert (das dauert 
ca. eine Sekunde), und der Bild¬ 
schirmrand wird mit einer zufälli¬ 
gen Farbe beschrieben. Die dafür 
notwendige Zahl wird einfach dem 


R-Register entnommen, das dau¬ 
ernd irgendeine Zahl zwischen 
0-255 enthält (für die Auffrischung 
des Speichers). Damit wir die Rom¬ 
routinen zum Farbändern nicht be¬ 
nutzen müssen, schreiben wir den 
Farbwert direkt in den Paletten¬ 
pointer, das Hardwareteil, das für 
die Farbgebung auf dem Bild¬ 
schirm zuständig ist. Dazu muß das 
B-Register mit der Zahl 7F hex gela¬ 
den werden, dann liegt auf der 
Portadresse 7Fxx das Farbregister 
(Bei einem Out (C)...Befehl wird als 
MSB ja auch der Inhalt des B- 
Registers adressiert. Da das LSB ja 
gleichgültig, eben xx, ist, interes¬ 
siert für die Portadressierung nur 
der Inhalt von B). Auf Port 7F muß 
zuerst geschrieben werden, wel¬ 
che Ink bestimmt werden soll, und 
dann muß deren Wert folgen. Um 
also z.B. die Ink 0, die Hintergrund¬ 
farbe, auf 3 zu setzen, wäre folgen¬ 
de Befehlsfolge notwendig: LD BC, 
7F00 (B’7F,C'0) OUT (C),C LD C;3 
OUT (C),C. Damit dürfte die Funk¬ 
tionsweise von Listing 1 wohl klar 
sein. Das Flackern der Borderfar- 
be kommt daher, daß die Farbe 
auch mitten im Bildaufbau geän- 
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10 ! Listing 2 



20 i 

bindet Farbuechsel in 




Interruptkette ein 



30 i 


fiOOO 


40 

ORS IA00C 



50 1 


AÖOO 

2107AO 

40 

ld hl,black 

A0Ü3 

C0E38C 

70 

call Ibce3 

A004 

C9 

SO 

ret 



90 i 


A007 

0000 

100 block! lief« 0 

A009 

0000 

110 

def* 0 

A00F 

00 

120 

defb 0 

AOüC 

BI 

130 

defb iBl 

AOClD 

12A0 

140 

def« routi 

flOOF 

00 

150 

defb 0 

AfllO 

oooo 

140 

def« 0 



170 1 


A012 

01107F 

IBÖ routi: ld bc,17(10 

AC15 

E049 

190 

out (e 1, c 

A017 

E05F 

200 

ld a,r 

AÖ19 

E41F 

210 

and IH 

AfllB 

F440 

220 

or 140 

AGIO 

ED79 

230 

out lcl,a 

AOlf 

C9 

240 

ret 

A020 


250 

end 

Riss 

2 errors: 

00 


Table usEd: 

37 frot 170 


dert wird. Der aus dem R-Register 
geholte Wert muß mit 1F verknüpft 
und mit 40 geORt werden, damit si¬ 
cher ist, daß ein gültiger Farbwert 
entsteht. Sollten Sie von Listing 1 
nicht allzu beeindruckt sein, spie¬ 
len Sie mal etwas damit herum. Ein 
paar DJNZ-Verzögerungsschleifen 
und NOP-Befehle wirken teilweise 
wahre Wunder (so könnten z.B. 
mehrere regenbogenfarbige Strei¬ 
fen entstehen, die langsam von un¬ 
ten nach oben wandern. In einem 
Programmtitel macht sich so etwas 
sehr gut!) Außerdem kann man 
auch noch eine weitere logische 
Operation (ein and/or etc.) nach 
dem or +40 einfügen, um so be¬ 
stimmte Farben zu bevorzugen 
oder auszuschließen. Auch das 
kann teilweise überraschende Ef¬ 
fekte bringen. 


Einbinden in die 
Interruptkette! 


Ideal wäre es natürlich, wenn die 
normalen Programme weiterlau¬ 
fen könnten, während diese Effek¬ 
te erzeugt werden. Die Lösung für 
dieses Problem ist einfach und lau¬ 
tet — wie Sie schon in der Zwi¬ 
schenüberschrift lesen konnten: 
das Einbinden der Routine in die 
Interruptkette. Man kann dem Be¬ 
triebssystem des Schneiders mit- 
teilen, welche Programme (bzw. 
Adressen) er bei jedem Interrupt 
aufrufen soll, und man hat dabei 
sogar die Wahl, wie oft pro Sekun¬ 
de, nachwievielen „Anstößen" und 
wie oft insgesamt das Unterpro¬ 
gramm ausgeführt werden soll. Al¬ 
le diese Informationen übergibt 


man in einem sogenannten lnter- 
ruptblock einigen Bytes im Spei¬ 
cher, die alle diese Informationen 
und die Adresse des Unterpro¬ 
gramms enthalten. Dann lädt man 
die Blockadresse ins HL-Register 
und ruft die entsprechende Be- 
riebssystemroutine auf (siehe Pro- 
grammlistmg 2), und schon läuft 
die Sache (da wir uns ohnehin 
noch mit Interrupts genau be¬ 
schäftigen werden, habe ich 
mich hier etwas kurz gefaßt.) 
Bei einem Aufruf durch Interrupts 


seren Effekt zu erlangen. Aber 
auch hier gilt wieder die Devise: 
Herumexperimentieren! Senken 
Sie auch daran, daß ohne Umstän¬ 
de auch zwei Farben geändert wer¬ 
den können, z.B. Border ( + 10) und 
Hintergrund ( + 0). Wenn man in 
beide dieselben Farbwerte hinein- 
schreibt, ergibt sich eine einheitli¬ 
che Fläche. Auch müßten Sie be¬ 
achten, daß Programmlisting 3 so¬ 
viel Zeit braucht, daß andere Pro¬ 
gramme deutlich langsamer 
ablaufen. (Übrigens: Wenn Sie bei 


!0 : Listing 3 

20 ; »ehraals die Ferne «echsein in eine* Interrupt 
30 ! 


;Start IfiOOO 
iStartadresse MOOO 


A000 


40 

ORS 

tfiOOO 

A000 


50 

ent 

1 



40 ; 



A000 

2I07A0 

70 

ld 

hl,black 

A003 

CDE3BC 

SO 

call 

Ihce3 

A004 

C9 

90 

ret 




ioo ; 



A007 

0000 

110 block: 

def« 0 

A0Q9 

0000 

120 

def» 0 

A00B 

OO 

130 

defb 

0 

AODC 

Bl 

140 

defb 181 

AüüD 

12A0 

150 

def« 

routi 

A00F 

OO 

140 

defb 0 

A010 

oooo 

170 

def» 0 



180 i 



A0I2 

F3 

190 routi: 

di 


A013 

ED5F 

200 

ld 

a,r 

AO15 

E403 

210 

and 

3 

A0I7 

47 

220 

ld 

b.a 

A01B 

C5 

230 rout2: 

push bc 

A019 

OIJ07F 

240 

ld 

bc,17(10 

A01C 

ED49 

250 

out 

fc),c 

A01E 

ED5F 

240 

ld 

a,r 

AC20 

E41F 

270 

and 

in 

A022 

F440 

280 

or 

140 

A024 

F404 

290 

□r 

4 

AC24 

E079 

300 

aut 

Icl.a 

AQ28 

CI 

310 

pap 

bc 

A029 

10ED 

320 

djn: 

rnut2 

AG2B 

FB 

330 

ei 


A02C 

C9 

340 

ret 


A02D 


350 

end 


Pass 2 errors: 

00 



Table used: 

49 fro« 210 


Executes: 40940 




{Adresse Interruptblack 
iKl.ADD.FAST.TICKER:bindet Block ein 
1R0UTI »ird ueber Interrupt aufgerufen 

JInterruptblock 


levtl. laenger eis 1/300 Sek. ! 
i*ehr*als in eine* Interrupt 
;die Farbe aendern, aber *ai.3 
iHer t fuer 0JN2 
;Zaehl«ert sichern 
!b=P.pointer,c=6order 
Ikorder ansprechen 
;2ufalls:ah] ins A Register, und 
Iso laskieren. dass 
lein gueltiger Farbwert entsteht 
.'Farbe «eiter laskieren 
|B ist iuer noch 47F, a=Farbe 

i...die Farbe oefter aendern 
iInterrupt nieder aulassen 
Hertig 


sind die Farbbalken zu regelmä¬ 
ßig. Wenn wir uns das von Pro¬ 
grammlisting 2 gelieferte Resultat 
anschauen, könnten wir eigentlich 
zufrieden sein. Nach dem einem 
CALL &A000 erscheinen die er¬ 
warteten Farbbalken auf dem Bor¬ 
der, aber andere Programme lau¬ 
fen normal weiter. Aber gerade 
diese Farbbalken sind nicht gera¬ 
de „das Gelbe vom Ei". Sie stehen 
immer starr an einer Stelle und wir¬ 
ken nicht sehr interessant. Diesem 
Problem hilft Listing 3 ab. Es ist, wie 
Sie feststellen werden, nur eine Va¬ 
riation von Listing 2. Dabei werden 
die Farben bei einem Interrupt 
mehrmals geändert, und so wird 
die starre Struktur durchbrochen. 
Ebenfalls werden die Farben noch 
einmal markiert, um so einen bes¬ 


CALL & A 000 


Listings 2&3 etwas ändern und 
dann erneut assemblieren, wäh¬ 
rend die Interruptroutine noch ak¬ 
tiv ist, riskieren Sie einen Crash, 
denn der Speicherbereich, den Sie 


Totales Chaos 


beim Assemblieren überschrei¬ 
ben, wird ja über Interrupts noch 
dauernd aufgerufen, Wenn Sie also 
Ihren Computer im totalen Chaok 
versinken lassen wollen — Sie wis¬ 
sen, was Sie zu tun haben!). TMB 
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Der Wordprocessor I 

Supertextverarbeitung mit Pull Down Menues 



Pull-Bown Punkte «erden durch erneutes Anklicken geschlossen. 
Cursortasten oder Joystick bewegen Pointer. 

Ein Klick innerhalb aes Textfeldes setzt CURSOR auf die angegebene 
Position. 

Folgende Sonder-Komandos gibt es (einfach entsprechende Tasten drücken): 

SHIFI und bewegen Cursor direkt in Text. 

CTRL und t*4-) bewegen Cursor Seite höher/tiefer/Zeilenanfang/-ende 

CTRL und 'L' entfernt Leerzeichen-notwendig zur Neufornatierung! 

TAB springt auf nächste Tabulator-position. Biese wird durch eiiwialiges 
Anklicken des Balkens über de« Schreibfeld gestzt oder zurückgesetzt. 
Zweinaliges Anklicken setzt den Rand. 


Vbrzer, nie uner den Kana aer lene Hinaus geschrieben wei^enT 


Schon wieder eine Textverarbei¬ 
tung, werden Sie jetzt vielleicht sa¬ 
gen. Das ist zwar richtig, aber 
Wordprocessor ist nicht eines der 
üblichen Textverarbeitungspro¬ 
gramme. Denn dieses Programm 
wurde nicht um seiner selbst willen, 
d.h. nur als Textverarbeitungspro¬ 
gramm, geschrieben. Vielmehr 
soll damit demonstriert werden, 
daß „Techniken, wie sie auf den 
modernsten Computern wie Ma¬ 
cintosh, Arrnga und Atari 520 Ver¬ 
wendung finden, auch auf dem 
Schneider realisierbar sind." Das 
heißt im einzelnen: Pull-Down- 
Menüs, ein Pointer (der aber aus 
verständlichen Gründen nicht mit 
einer Maus, sondern mit den Cur 
sortasten oder einem Joystick be¬ 
wegt werden muß) und die damit 
verbundene Window-Technik und 
Bedienungstechniken._ 


Zur Textverarbeitung 


Wordprocessor ist in der Lage, 
200 Zeilen Text zu verwalten. Wör¬ 
ter, die über den Rand der Zeile 
hinaus geschrieben werden, wer¬ 
den automatisch in die nächste 
Zeile geschoben, ohne daß man 
beim Schreiben darauf achten 
muß. 

Wenn eine Zeile vollgeschrieben 
ist, wird Sie automatisch formatiert, 
und zwar je nach dem angewählten 
Format links- oder rechtsbündig, 


zentriert oder auf Block (beidseiti¬ 
ger Randausgleich). Was ist nun 
das Besondere an Wordprocessor I 
Wenn die Cursortasten gedrückt 
(oder der Joystick bewegt) werden, 
bewegt sich nicht etwa der Cursor, 
sondern es taucht ein kleiner Pfeil 
auf, der beliebig über den Bild¬ 
schirm bewegt werden kann, der 
sogenannte Pointer. Im Gegensatz 
zu anderen Programmen, bei de¬ 
nen man sich komplizierte Tasten¬ 
folgen merken muß, um mit dem 
Programm umzugehen, bewegt 
man einfach den Pointer an das ent¬ 
sprechende Wort, z.B. 'Löschen'. 
Dann 'klickt' man es an, d.h., man 
drückt Copy (oder den Feuer¬ 
knopf). Nun erscheint ein soge¬ 
nanntes 'Pull-Down-Menü', eine Art 
kleiner Zettel, auf dem man aus¬ 


wählen kann, was gelöscht werden 
soll, also 'Zeile' oder 'Alles'. Wenn 
wir nun z.B. Zeile anklicken, ein¬ 
fach indem wir den Pointer schräg 
darunter setzen und Copy drük- 
ken, wird die Zeile gelöscht, auf 
der sich der Cursor zuletzt befand. 
Da fast alle Funktionen auf diese 
Art und Weise ausgewählt werden, 
kann man schon nach sehr kurzer 
Eingewöhnungszeit mit dem Pro¬ 
gramm umgehen. Selbst Personen 
mit wenig Computererfahrung kön¬ 
nen schnell mit dem Programm ar¬ 
beiten, da das Zeigen und Aus wäh¬ 
len mit dem Pointer sehr viel an¬ 
schaulicher ist, als sich endlose Ta¬ 
stenfolgen zu merken. 

Folgendes sollte beachtet wer¬ 
den, wenn man mit Wordproces¬ 
sor arbeitet: Der Pointerpfeil muß 
rechts unter der Stelle stehen, auf 
die man mit ihm zeigt. Ein 'Klick' 
innerhalb des Textes setzt den 
Cursor auf die angegebene Stelle. 
Der Cursor läßt sich selber bewe¬ 
gen, und zwar indem man SHIFT 
und die Cursortasten benutzt. Mit 
CTRL und den Cursortasten kann 
man den Cursor 10 Zeilen hö¬ 
her/tiefer bzw. an den Zeilenan¬ 
fang und das Zeilenende stellen. 

Der Pointer verschwindet auto¬ 
matisch, wenn man weitersGhreibt. 
Dann taucht nämlich der Cursor 
wieder an der Textstelle auf, an der 
er vorher war. Normalerweise wird 
die Zeile, die man gerade ge¬ 
schrieben hat, automatisch forma¬ 
tiert (entsprechend dem unter 


Hilfe Format Ablage Löschen Einfügen 


werden auto«atisch in die nächste Zeile 
bei« Schreiben darauf achten «u£. Wenn e 
vollgeschrieben ist. wird Sie autowatiscl 
Je nach de« angewahlten Format links- odt 
zentriert, oder auf BJock (beidseitiger I 

Vii f ext? I 

_ _ «erd< 

mTJiBiE I' gns.l BltrHireiTOB lein kleiner 


■manyunriji 


||ein k Eimer Pfeil auf, 

I werden kann, der sogenannte 

_fllfegra««en, bei denen «an sich 

..... ...U,V.. * - v.. * ™ , m Alf de« Progra*« 

unzugehen, bewegt «an einfach den romter an das entsprechende 
Mort, z.Bfl 'Löschen'. Bann 'klickt' «an es an, d.h. «an drückt 
Copy (oder den Feuerknopf). Hun erscheint ein sogenanntes 
'Pull-Bown-flenü', eine Art kleiner Zettel, auf de« wir 
auswählen können, was wir löschen Möchten, also 'Zeile' oder 
'Alles'. Kenn wir nun z.B. wieder Zeile anklicken, einfach 
inde« wir den Pointer schräg darunter setzten und Copy drücken, 
wird die Zeile, auf der sich der Cursor zuletzt befand, 
gelöscht. Ba fast alle Funktionen auf diese Art und Meise 
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5 ' 

6 9 Copyright 1985 Thomas M.Binzingor 

10 DATA 01BB9021D490CDD1BCC9200038003E003F803FE03 
FFB3FFE3FF03FE030700038001COOOE00070000,3632 
20 DATA C690C31091C35E91C38091C3AF915052494ED4494 
ED64558C353C500000000000000000000000000,3645 
30 DATA DD6EOODD23DD6600DD2322DB90DD6EOODD660122D 
E90DD6E02DD660322DC90DD6E04DD660522DA90,4731 
40 DATA DD2AD890DD6E01DD660222D890C90000CDE090CD0 
6B92ADA901100C0192216912ADC90452ADE907D,4691 
50 DATA 90472ADC90EB2ADB9019ED5B1691C5E5D5E7CDA5B 
BO6087E1223E521000819EBE110F4D113E123C1 f 5094 
60 DATA 1OE4CDOCB9C9CDEO902ADA9O1100C0190608C5E5E 
D5BDC90437E2F772310FAE111000819C110EBC9,4770 
70 DATA CDE0902ADC907D329C912ADA9011OOCO19119A900 
60EC51A4F7E1279007723131A4F7E1279712BCD,3899 
80 DATA 26BC13C110E8C9CDE0902ADC90ED5BDE90015000E 
DBOC90000,3255 

85 SYMBOL AFTER 90s OPENOUT"dum<ny " s MEMORY 8c908F:CL 
OSEOUT 

90 RESTOREs ad=8c9090 

100 FOR 1 = 10 TO 80 STEP lOsREAD a$, cs« 1 s=Oi FOR x*= 
1 TO LEN(aS) STEP 2: b*=MID* Ca*, x, 2): w=VAL < '‘Sc^+b*) 
:POKE ad,wsad=ad+l:1s=ls+wsNEXT 

110 IF IsOcs THEN PRINT "Achtung!!! Falsch« Dato 

n in Zeile:"1"!!"sSTOP 

120 NEXT: CALL Sc9090 

130 RUN"tt2 

140 ’ 

150 ' Die Zeilenummern sollten nicht geaendert we 
rden! 

160 ’ Dieser Programmteil laedt TT2 nach, muss da 
her auf Kassette 

170 9 vor TT2 stehen. Hat TT2 einen anderen Namen 
, muss dieser in 

180 ’ Zeile 130 eingesetzt werden ! 


FORMAT angewählten Punkt). Teil¬ 
weise kann es aber auch nützlich 
sein, die eingefügten Leerzeichen 
wieder zu entfernen: Dazu einfach 
CTRL & L drücken. Mit CTRL & F 
wird eine Zeile wieder neu forma¬ 
tiert. 

Wenn Sie die Funktion 'Texteinle¬ 
sen' (unter Ablage) aus wählen, 
muß das gewünschte Programm 
angeklickt werden, um es zu laden. 
Wird kein Programm, sondern ir¬ 
gendeine andere Stelle des Bild¬ 
schirms angeklickt, wird die Funk¬ 
tion abgebrochen. Das kann man 
z.B. machen, wenn man nur das Di¬ 
rectory sehen wollte. (Achten Sie 
aber darauf, daß Sie wirklich nur 
ein Textfile anklicken, nicht etwa 
ein Programm. Und Vorsicht: Sind 
so viele Files auf der Diskette, daß 
ein Teil des Directorys herausrollt, 
kann man die Files nicht mehr aus¬ 
wählen. Denn das Programm stellt 
anhand der Bildschirmposition des 
Pointers fest, welches Programm 
gemeint war). Bei der Farbwahl- 
Funktion unter Sonstiges muß man 
solange die Wörter 'Vordergrund' 
und 'Hintergrund' anklicken, bis 
man mit den Farben zufrieden ist. 
Dann 'OK' anklicken, um die Funk¬ 
tion zu beenden. 

Bitte denken Sie daran, daß man 
so lange nicht schreiben kann, wie 
irgendein Extra-Window geöffnet 
ist, und daß man es erst durch er¬ 
neutes Anklicken des entspre¬ 
chenden Punktes schließen muß. 

Ansonsten . .. probieren Sie her¬ 
um! Es ist nicht allzu schwer, mit 
Wordprocessor zurechtzukom¬ 
men. 


Wordprocessor 
erweitern .. . 

Wie bereits gesagt, ist Wordpro¬ 
cessor nicht um der Textverarbei¬ 
tung willen geschrieben worden, 
sondern als Demonstrationsmo¬ 
dell für GEM-ähnliche Techniken 
(GEM ist das Betriebssystem, das 
der Atari 520 ST verwendet, ähn¬ 
lich wie Macintosh und Amiga). Wer 
also Teile aus Wordprocessor für 
seine eigenen Programme verwen¬ 
den möchte, kann das gerne tun. 

In diesem Zusammenhang sind 
vor allem die im ersten Programm 
teil enthaltenen Maschinencode¬ 
routinen interessant: Sie stehen 
über sogenannte RSX-Befehle zur 
Verfügung und sorgen für den 
schnellen Bildschirmaufbau, die 
Darstellung des Pointers und die 


Verwaltung des Textspeichers (als 
Textspeicher wurde bei Wordpro¬ 
cessor nicht einfach ein Stringar- 
ray verwendet, da der Computer 
zu dessen Verwaltung zuviel Zeit 
braucht, sondern der Text steht 
über HI MEM). Die Befehle sind 
öPRINT, öINV, öEXC und öSE. Wie 
sie im einzelnen benutzt werden, 
ist aus dem Listing ersichtlich. 

Das Programm ist für einen Ep¬ 
son MX-80 Drucker ausgelegt. 
Wenn man einen anderen Drucker 


Beim eintippen beachten: 
Listing-Zeichen 


ö 

ü 

ä 

ß 

§ 


verwendet, muß man die Zeile 
2270-2320 entsprechend ändern. 
Wenn man Wordprocessor mit 
Kassette benutzen will: Zeilen 
1770-1820 löschen, Zeile 1830 sollte 
lauten: 1830 OPENIN"! Der Com¬ 
puter liest das nächste File von 
Kassette, das er findet. 

Also: Wir wünschen viel Spaß 
mit Wordprocessor, und vielleicht 
finden Sie hier ja auch ein paar 
Anregungen für Ihre eigenen Pro¬ 
gramme. TMB 


Taste 


Klammeraffe mit SHIFT 

] 

[ 

T (unter £) 

Klammeraffe ohne SHIFT 
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5 'WordproceSSOr 2 

6 ' Copyright 1985 Thomas M.Binzinger 
10 MEMORY HIMEM-(200*80)-llDEFINT a-y 

20 GOSUB 60«GOSUB 240:a=REMAIN(0)tEVERY 3000,0 GO 
5UB 1460 

30 GOSUB 2000 1 GOSUB 480*GOSUB 2060*REM Zeile hol» 
n und formatieren 

40 z*=e*:GOSUB 2030*zeile=MIN<zeile+1,200)*lzei1» 
=MAX(zaile,lzeilo):cy=cy+l:GOTO 30 
50 a*=INKEY*:IF a*="" THEN 50 ELSE PRINT ASC(a*>: 
GOTO 50 

60 REM ** Initialisieren ** 

70 REM 

80 maxi=200:DIM tabs(80),pd*(6)*z*=SPACE*(80) 

90 lrand=7srrand=77sF0R x = l TO 80 1 tabs(x)»-l «NEX 
T*z*=SPACE*(80)*FOR zeile-1 TO maxi*GOSUB 2030*NE 
XT:zei1a=l:screentop=l*lzeile=l:cx=licy=l:ppos=B4 
O* vorder=24* hinter“1: f arben»0* sk=0 
100 PEN 1:PAPER 0:MODE 2:WIND0W #0,l,80,4,25iWIND 
OW #1,1,80,1,3 

110 a*=CHR*(13)+CHR*(10>+" "*pd*(2>»" keins"+a*+" 
rechts"+a*+*’zentriert "+a*+"Blocksatz"* pd*(3)»" Te 
xt abspeichern"+a*+"Text einlesen"+a*+"Text druck 
en"+a*+"Ab Cursor drucken” 1 pd*(4)Zei1e"+a#+"Al 
les" 1 pd* (5) Zei1e"+a#+"Seite" 

120 pd*(6)=" Uhr ,, +a*+"Zeit eingeben"+a*+"Farben“+ 
a*+"Speieher"+a*+"Textanfang"+a*+"Textende"t pd#(1 
>-" 

130 w(l)“2«w(2>=l:w(3) = liw(4>=l:w<5>“l*w(6>“liw(7 
)=1 

140 SYMBOL 123,198,0,120,12,124,204,118,0 

150 SYMBOL 125,198,0,102,102,102,102,62,0 

160 SYMBOL 124,198,0,60,102,102,102,60,0 

170 SYMBOL 126,120,198,198,252,198,198,24B, 192 

180 SYMBOL 91,219,60,102,102,126,102,102,0 

190 SYMBOL 93,198,0,198,198,198,198,60,0 

200 SYMBOL 92,198,56,198,198,198,108,56,0 

210 KEY DEF 17,1,123,91 * KEY DEF 19,1,125,93*KEY D 

EF 26,1,124,92:KEY DEF 24,1,126:KEY 128,CHR#(64): 

RETURN 

220 GOTO 2310 
230 REM 

240 REM ** Statuszeile ** 

250 LOCATE #1,1,3*PRINT #1,STRING#(80,32)ustatus 
*=" Hilfe Format Ablage Löschen Einfügen 
Sonstiges”*PLOT 0,35B,0:DRAW 640,358 ELSE 2B0 
260 FOR x=l TO 80*IF tabs(x)=l THEN PLOT B*x-4,35 
2,0* DRAU B*x-4,360*PLOT B*x-3,352*DRAW B#x-3,360 
270 NEXT 

280 a*=SPACE*(77)* ÖPRINT,82,0,76,fia#*ÖPRINT,80,0, 
56,istatua# 

290 PLOT 1rand*8-B,358,1:DRAW rrand*8,358 

300 PLOT 0,387:DRAW 639,387,1 *DRAW 639,364*DRAW O 

,364:DRAW 0,387 

310 FOR x=l TO BOsIF tabs(x)=l THEN IF x>=lran 

d AND x<=rrand THEN PLOT B*x-4,352*DRAW 8*x-4,360 

,1:PLOT B*x-3,352*DRAW 8*x-3,360 

320 NEXT 

330 RETURN 

340 REM 

350 REM ** Pul1 down Menue ** 

360 GOTO 380 

370 DATA 2,76,20,Hilfe,10,11,6,Format,19,19,6,Abi 
age,28,8,4,"Löschen",38,9,4,Einfügen,49,14,8,Sons 
tiges 

380 RESTORE 370:q=nr:z=l 

390 READ rr,br,ho,u#*nr=nr-l*IF nr<>0 THEN 390 
400 rr=rr-l 

410 WINDOW #2, rr,rr-*-br, 3,2+ho* CLS #2 

420 PLOT rr*B—9,400-2*16,1 * DRAW rr*8-9,400-(2+ho) 

*16-2 


430 IF rr=l THEN PLOT rr*8-8,400-2*16,1:DRAW rr*8 
-8,400-(2+ho)*16-2 

440 PLOT rr*8-10,400—2*16:DRAW rr*8-10,400-(2+ho) 
*16-2 

450 DRAW (rr+br)*B+1,400—(2+ho)*16-2 
460 DRAW (rr+br)*8+1,400-2*16*PLOT (rr+br>*8+2,40 
0-2*16:DRAW (rr+br)*8+2,400-(2+ho>*16-2*PLOT rr*B 
-2,400-2*16:DRAW (rr+br)*8+2,400-2*16*LOCATE #l,r 
r,2sPRINT #1,CHR*(24)" "u*" "CHR*(24);*WINDOW SWA 
P O,2* PRINT:PRINT pd*(q);*nr=q:IF nr=l THEN GOSUB 
2340 

470 w(7)=w(nr)s öINV,(w(nr)+2)*80+rr-l,br+1,1,1:WI 
NDOW SWAP 0,2:RETURN 
480 REM 

490 REM ** Zeile editieren ** 

500 IF cy>20 THEN IF screentop+10<=230 THEN ho=20 
:screentop“screentop+10*cy=cy-10:GOSUB 1170 
510 cx=lrandie*“LEFT*(z*,80) s IF wort*<>"" THEN MI 
D*(eS,1rand,LEN(wort*))=wart**cx=cx+LEN(wort *):wq 
rt*="" 

520 ÖPRINT,(cy+2)*80,0,79,Se*:LOCATE cx,cy 
530 LOCATE cx,cy:CALL &BB8A*REM Cursor on 
540 GOSUB BIO*in*=i*si=ASC(in*) 

550 IF i=224 THEN PRINT CHR*(7)S:GOTO 540 
560 IF i=244 THEN IF zeile=l THEN 520 ELSE CALL & 
BB8Dsz*=e*:GOSUB 2030:IF zeile=screentop THEN scr 
eentop^MAX(screentop-20,1):zeile=screentop+19scy= 
20*GOSUB 2000:e*=z*iGOSUB 1170:GOTO 520 ELSE zeil 
e=zei1e—1:cy=cy—1:GOSUB 2000:e*=z*:GOTO 520 
570 IF i=245 THEN IF zeile=lzeile THEN 520 ELSE C 
ALL 8cBB8D:z*=e*:GOSUB 2030; IF zei 1 e=screentop+19 
THEN screentop=MIN(screentop+20,lzeile-20> * zeile= 
screentop*cy=l*GOSUB 2000:e*=z*:GOSUB 1170*G0T0 5 
20 ELSE zeile=zei1e+1scy=cy+l:GOSUB 2000:e*=z*:G0 
TO 520 

580 IF i=6 THEN GOSUB 2540*qq=cx*cx=rrandsGOSUB 2 
060*cx=qq*i=245*CALL &BB8D:GOTO 570 
590 IF i=12 THEN GOSUB 2540:GOTO 520:REM Leerzei 
chen entfernen 

600 IF i=13 THEN ÖPRINT,(cy+2)*80,O,79,Se*swort*= 
"":RETURN 

610 IF i=127 THEN CALL «cBBBD: MID* (e*, cx, 1 > =•• ”*IF 
cx > 1 rand THEN MID*(e*,cx,rrand-cx)=MID*(e*,cx+1, 

rrand-cx):MID*.... 520 E 

LSE 520 

620 IF i=16 THEN MID*<e*,cx,rrand-cx)»MID*(e*,cx+ 
1,rrand-cx):MID*(e*,rrand,1>■" "iGOTD 520 
630 IF i=250 THEN cx=lrand:GOTO 520 ELSE IF i=251 
THEN cx=rrandsWHILE cx>lrand AND MID*(e*.cx,1> = " 
"*cx=cx-l:WEND*GOTO 520 

640 IF i=246 AND cx>l THEN CALL &BB8D:cx-cx-1sGOT 
0 530 

650 IF i=247 AND cx<80 THEN CALL &BB8D* cx=cx+l * BO 
TO 530 

660 IF i=248 THEN z*=e*:GOSUB 2030:screentop=MAX( 
screentop-20,1):zei1e=acreentop:cy=l:GOSUB 2000:e 
*=z*jGOSUB 1170*GOTO 520 

670 IF i=249 THEN z*=e*iGOSUB 2030*screentop=MIN( 
screentop+20,lzei1e-20)* zeile=screentop+19:cy=20: 
GOSUB 2000:e*-z*:GOSUB 1170*GOTO 520 
680 IF i=9 AND cxOBO THEN CALL «tBB8D*x=cx+l:WHIL 
E tabs (x)< >1 AND x<rrand:x=x + l:WEND*cx-x:GOTO 530 
690 IF i<32 THEN RETURN 

700 IF cx<lrand OR cx>rrand THEN CALL &BB8D*PRINT 
CHR*(7)|* GOTO 530 

710 IF cx >=rrand THEN 720 ELSE MID*(e*,cx,rrand-c 
x) = " "+MID*(e*,cx,rrand—(cx+1)) 

720 MIDS(e*,cx,l)=in** ÖPRINT,(cy+2)*80,0,79,fie*:c 
x=cx+l*IF cx<rrand+l THEN 530 
730 IF in*=" " THEN RETURN 

740 u#=“":x=rrand 1 WHILE x>lrand AND u*<>" "*u*=M 
ID*(e«,x,1)* x=x —1 * WEND 
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750 IF x=lrand THEN RETURN 

760 wort*=MID*(e*,x + 1,rrand-x-1> +in*:MID*(e*,x+1 , 
rrand-LEN(wort*)>=SPACE*(LEN(wort*)):LOCATE c+l,c 
y:PRINT SPACE*(LEN(wort*)) 

770 IF LEFT*(wort*,1) = " " THEN wort*=RIGHT*(wort* 

,LEN(wort*)-1) 

7B0 ÖPRINT,(cy+2)*80,0,79,Se* 

790 RETURN 
800 REM 

810 REM ** Keys abfragenSc Pointer bewegen ** 

B20 wopen=0:ges=0ippos=cy*B0+cx+240—1:n*=CHR*(9) + 
CHR*(10)+CHR*(8)+CHR*(11)+CHR*(88)+CHR*(240)+CHR* 
(241)+CHR*(242)+CHR*(243 > +CHR*(224) 

830 i*=INKEY*:IF i*="" AND JDY(0)=0 THEN 830 
840 IF JOY(0)00 THEN 850 ELSE i=ASC(i*):IF i<240 
□R i>243 THEN RETURN 
850 GOSUB 1300 
860 u=ppos 

870 j=J0Y(0):IF INKEY(0)=0 OR (J AND 1)=1 THEN u= 
u-80 

880 IF INKEY(2)=0 OR (J AND 2)=2 THEN u=u+BO 

890 IF INKEY(8)-0 OR (J AND 4)=4 THEN u=u-l 

900 IF INKEY(1)=0 OR (J AND 8)=8 THEN u=u+2 

910 IF INKEY(1)=0 OR (J AND 8) =8 THEN u=u+l 

920 a*=INKEY*:IF a*<> ,,, ' THEN IF wopen=0 AND INSTR 

(n*,a*)=0 THEN ÖEXC,ppos*l,0,1,1:1*=a*:IF ges=l T 

HEN GOSUB 1300:ÖINV,79+al,el-al,1,1:GOSUB 1300:ge 

s=0::a1=0:e1=0:RETURN ELSE RETURN 

930 IF loadp=0 AND -farben=0 THEN GOSUB 1230 

940 IF wopen-0 AND farben=0 THEN IF u>80*23+80 TH 

EN GOSUB 1300ez*=e*:GOSUB 2030:ho=20:GOSUB 1170»d 

=zeile-screentop:screentop=MIN(1zei1e,screentop+1 

0): GOSUB 1170:zeile=screentop+d:GOSUB 2000:e*=z*: 

GOSUB 1300 

950 GOSUB 1010:REM Menuebalken 

960 IF INKEY(9)=0 OR (JOY(O) AND 16)=16 THEN IF f 
arben=l THEN GOSUB 16B0 ELSE IF loadp=l THEN GOSU 
B 1760 ELSE GOSUB 1090 
970 IF u=ppos THEN 870 
980 IF u<0 OR u>80*23+80 THEN 860 
990 GOSUB 1300:ppos=u:GOTO B50 
1000 DATA 2,7,10,16,19,25,28,35,38,46,49,57 
1010 IF wopen=l THEN RETURN ELSE IF ges=l AND ppo 
s-161>=al-2 AND ppo*-161<el THEN RETURN 
1020 IF ges=l THEN GOSUB 1300:öINV,79+al,el-al,1, 
1:GOSUB 1300:gee=0::al=0:el=0 
1030 x=l:q=ppos—160:RESTORE 1000 
1040 IF ppos<161 OR ppos>258 THEN RETURN 
1050 READ a,e:IF (q>a-2 AND q<e) THEN nr=x:GOTO 1 
080 

1060 x=x+t:IF x=7 THEN RETURN 
1070 GOTO 1050 

1080 GOSUB 1300:ÖINV,79+a,e-a,1,1:al=a:el=e:ges=l 

:GOSUB 1300:RETURN 

1090 REM ** Open window ** 

1100 IF wopen=0 AND ppos>240 AND ppos<320 THEN 18 
80:REM Schreibzone 

1110 IF wapen=0 AND ppos>319 THEN z*=e*:GOSUB 203 
O:GOSUB 1300:ÖPRINT,(cy+2)*80,0,80,Sz*:GOSUB 1210 
:cx=px:cy=py-4:zei1e=screentop+cy-l:GOSUB 2000:e* 
=z*:LOCATE cx,cy:CALL &BB8A:GOSUB 1300:RETURN 
1120 GOSUB 2000:z*=e* 

1130 IF wopen=l AND ppos-161>=al-2 AND ppos-161<e 
1 AND -farben=0 THEN GOSUB 1300:G0SUB 240:G0SUB 11 
70:GOSUB 1300:wopen=0:RETURN 
1140 IF ge*=0 THEN RETURN 

1150 GOSUB 1300:ÖINV,79+a,e-a,1,l:ai=a:el=e:ge»=0 
:GOSUB 350:GOSUB 1300:wopen=l:RETURN 
1160 REM 

1170 REM **Window Rest weg ** 

1180 p=240:x=zeile:F0R zeile=screentap TO screent 


op+ho-1:GOSUB 2000:ÖPRINT,p*l,0,80,Sz*:p=p+80:NEX 
T:zeile=x:GOSUB 2000 
1190 RETURN 
1200 REM 

1210 REM ** Errechne px/py ** 

1220 py=INT(ppos/80):px=ppos-py*80:px=px+l:py=py+ 
1:RETURN 

1230 REM ** Mark Pull-Down Punkte ** 

1240 IF wopen=0 THEN RETURN 

1250 GOSUB 1210:IF px<rr OR px>rr+br OR py<5 OR p 
y >ho+2 THEN RETURN 

1260 IF JOY(0)=16 OR INKEY<9)=0 THEN w(nr)=w(7):G 
OSUB 1500:PRINT CHR*(7); 

1270 q=nr:IF w(7)=py-4 THEN RETURN 
1280 GOSUB 1300:ÖINV,(w(7)+2)*80+rr-l,br+1,1,1 
1290 w(7)=py-4:ÖINV,(py-2)*80+rr-l,br+1,1,1:GOSUB 
1300:RETURN 

1300 REM ** Exchange Pointer&Screen ** 

1310 ÖEXC,ppos*l,0,1,1:RETURN 
1320 REM ** Uhr ** 

1330 REM mathematische Unterstützung:"Jörg Rohde“ 
1340 pl=ppos:GOSUB 1300:WINDOW #2,10,30,9,18:PAPE 
R #2,1:PEN #2,0:CLS #2:PEN #2,1:PAPER #2,0 
1350 DEGsPLOT 218,191,O:FOR w=0 TO 360 STEP 12:DR 
AW COS(w)*60+158,SIN(w)*60+191:NEXT:FOR w=0 TO 36 
O STEP 30:xl=COS(w)*55+158:yl=SIN(w)*55+191:x2=CO 
S(w)*70+158:y2=SIN(w)*70+191:PLOT xl,yl:DRAW x2,y 
2: NEXT: m»minute: s=stunde: ppos=*1389: GOSUB 1300 
1360 mI=minute:sl=stunde:minute=m:stunde=s:PLOT 1 
58,191,1:GOSUB 1410:stunde=sl:minute=mliPLOT 158, 
191,0:GOSUB 1410:GOTO 1370 
1370 m=minute:s=stunde 

1380 IF m=minute AND INKEY(9)<>0 AND J0Y(0><>16 T 
HEN 13B0 

1390 IF INKEY(9)=0 OR JOY(0)=16 THEN GOSUB 1300:p 
pos=pl:GOSUB 1300::RETURN 
1400 GOTO 1360 

1410 w=(11-stunde)*30+90+(60-minute)/2 
1420 PLOT 158,191:x1=C0S(w-20)*15+158:yl=SIN(w—20 
)*15+191:x2=C0S(w+20> *15+158:y2=SIN(w+20> *15+191: 
x 3=C0S(w)*53+158:y3=SIN(w)*53+191:DRAW x1,y1:DRAW 
x3,y3:DRAW x2,y2:DRAW 158,191:w=(60-minute)*6+90 
: x3=C0S(w)*53+158:y3=SIN(w)*53+191:DRAW x3,y3:RET 
URN 

1430 REM Freien Speicher darstellen 

1440 FOR y=9 TO 17:LOCATE 9,y:PRINT" "}:NE 

XT: LOCATE 9,9: PRINT" 1007." J : LOCATE 12,17:PRINT"OX" 

;:FOR x=l16 TO 120:PLOT x,80,l:DRAW x,B0+(maxi-lz 

eile)*(144/maxi):NEXT:RETURN 

1450 REM Uhr weiterzaehlen 

1460 minute=minute+l:IF minute=60 THEN minute=0:s 
tunde=stunde+l:IF stunde=12 THEN stunde=0 
1470 RETURN 

1480 REM ** Schreibe linke Haelfteneu ** 

1490 IF 1p=0 THEN RETURN ELSE p=240:x=zeile:FOR z 
ei1e=screentop TO screentop+19:GOSUB 2000:ÖPRINT, 
p*l,0,lp*l,Sz*:p=p+80:NEXT:zei1e=x:GOSUB 2000:RET 
URN 

1500 REM ** Bearbeite geklickte Pulldownpunkte ** 
1510 w=w(7):IF nr=6 AND w=l THEN GOSUB 1340:lp=35 
:GOSUB 1480:RETURN 

1520 IF nr=6 AND w=4 THEN BOSUB 1300:pl=pposia*=S 
TRING*(20,127):FOR p=B00 TO 1600 STEP BO:ÖPRINT,p 
*1,0,19,SA*:NEXT:GOSUB 1430:ppos-1618:GOSUB 1300: 
1 p = 20i WHILE INKEY (9) < >0 AND JOY (O) 016: WEND: GOSUB 
1300:GOSUB 1480:ppos=p1«GOSUB 1300:RETURN 
1530 IF nr=6 AND w=3 THEN farben=l:x=10:y=10:b-30 
:h=3: GOSUB 1660: WINDOW SWAP O, 3: PRINT: PRINT** "CHR 
*(24)" Vordergrund "CHR* (24)" "CHR* (24)** Hinter 
grund ":LOCATE 30,4:PRINT"OK"CHR*(24)|:WINDOW SWA 
P 0.3:RETURN 
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1540 1F nr =6 AND w=5 THEN GOSUB 1300iGOSUB 240:z* 
=etiGDSUB 2030:ho=20:screentop=l:cx=lrand:cy=l:ze 
ile=l:GOSUB 1170:LQCATE cx,cy:CALL 8 <BB 8 A: wopen=0: 
GOSUB 1300:GDSUB 2000:e*=z*:RETURN 
1550 1F nr =6 AND w =6 THEN GOSUB 1300:GOSUB 240:z* 
=e*:GOSUB 2030:ho=20:cx=lrand:zei1e=lzei1 ec GOSUB 
2000:screentop=lzeile-20:cy=20:IF screentop<l THE 
N screentop=l 

1560 IF nr =6 AND w =6 THEN GOSUB 1170:CALL &BBBA:w 
open=0:GOSUB 1300:GOSUB 2000:e*=z*:RETURN 
1570 IF nr=3 AND w=2 THEN GOSUB 1300:GOSUB 1170:G 
OSUB 240:x=4:y=7:b=70:h=15:GOSUB 1660:WINDOW SWAP 
0,3:CAT:WINDOW SWAP 0,3:GOSUB 1300:loadp=i:RETUR 
N 

1580 IF nr=4 AND w=2 THEN FOR zeile=l TO lzeile:z 
*=SPACE*(80):GOSUB 2030:NEXT:GOSUB 1300:G0SUB 240 
:ho=21:G0SUB 1170:G0SUB 1300:wopen=0:lzeile=l:cx= 
rrand:cy=1:z ai1e=1:GOSUB 2000:e*=SPACE*(BO):RETUR 
N 

1590 IF nr=3 AND w=l THEN GOTO 1930 

1600 IF nr=2 THEN GOSUB 1300:GOSUB 240:GOSUB 1170 

:wopen= 0 :GOSUB 1300:RETURN 

1610 IF nr =6 AND w=2 THEN 2140 

1620 IF nr=3 THEN IF w=3 THEN 2210 ELSE IF w=4 TH 
EN 2230 

1630 IF nr=5 THEN IF w=l THEN 2420 ELSE 2440 
1640 IF nr=4 THEN IF w=l THEN 2510 
1650 RETURN 

1660 REM ** Open extra Window 

1670 WINDOW #3,x,x+b,y,y+h:CLS #3:F0R a=l TO 5:PL 
OT (x —1> *8—a,416—y*16+a,1:DRAW (x~l>*B-a,399-(y+h 
> *16-a:DRAW (x+b)*8+a,399-(y+h)*16-a:DRAW (x+b) *8 
+a,416-y*16+a:DRAW (x-1)*8-a,416-y*16+a:NEXT:RETU 
RN 

1680 REM ** Handle Farbklick 

1690 IF ppos<890 THEN RETURN ELSE IF ppos<903 THE 

N vorder=vorder+l:IF vorder >27 THEN vorder=0 

1700 IF ppos>905 AND ppos<918 THEN hinter=hinter+ 

1:IF hinter>27 THEN hinter=0 

1710 IF vorder=hinter THEN vorder=vorder+l 

1720 INK 0,hint#r:BORDER hinter:INK 1,vorder 

1730 IF ppos>1077 AND ppos<1081 THEN farben=0;lp= 

41:GOSUB 1300:GOSUB 1480:GOSUB 1300 

1740 FOR t=l TO 100:NEXT 

1750 RETURN 

1760 REM ** Waehle Programm aus 
1770 IF ppos<803 THEN 1860 
17B0 b a=Sc91CD+2048 

1790 anz=0:z=ba+t 1: WHILE PEEK(z)<>0 AND z<«cBA+641 
:anz=anz+l:z=z+14:WEND:IF ppos>ROUND((anz+1)/3+0. 
5>*80+779 THEN 1860 

1800 u=0:p=ppos MOD 80:1 l=ppos-p-80: IF p>2 AND p< 
15 THEN GOSUB 1300:ÖINV,11+3,12,1,1:GOSUB 1300:u= 
1 

1810 IF p>22 AND p<35 THEN GOSUB 1300:öINV,23+11, 
12,1,1:GOSUB 1300:u=2 

1820 IF p>42 AND p<55 THEN GOSUB 1300:ÖINV,11+43, 
12,1,1:GOSUB 1300:u=3 

1830 IF u=0 THEN 1860 ELSE GOSUB 1300:11=11-720:1 
1=11/80:11=(((u-1)»ROUND(anz/3))+11)*14:n*="":FOR 
z=l1+ba TO ll+ba+10:n*=n*+CHR*(PEEK(z)):NEXT:n*= 
LEFT*(n*, 8 >+". "+RIGHT*(n*,3): zei 1 e=l: GOSUB 1300:0 
PENIN n* 

1840 WHILE EOFO-1 AND zei 1 e<251:LINE INPUT #9,a* 
:z*=SPACE*(80>:MID*(z*,1,LEN(a*>)=a*:GOSUB 2030:z 
eile=zeile+1:IF zeile>lzeile THEN lzeile=zeile 
1850 WEND:x=zeile:WHILE zei1e<1zeile:z*=SPACE*(80 
>:GOSUB 2030:zei 1e=z ei1e+1:WEND:1zei 1e=x:zei1e=1: 
GOSUB 2000:e*=z*sscreentop=l:cx = l:cy=l 
1860 GOSUB 1300:ho=20:GOSUB 1170:loadp=0:wopen=0: 
GOSUB 1300 


1870 RETURN 

1880 REM Schreibzone aendern 

1890 GOSUB 1210: IF ppoeOsk THEN ek=ppas: IF tabs ( 
px)=l THEN tabs(px)=0:GOTO 1910 ELSE tabs(px)=1:G 
OTO 1910 

1900 sk=0:pm=lrand+(rrand-lrand)/2:IF px<pm THEN 
lrand=px ELSE rrand=px 

1910 PLOT 0,358,0:DRAW 639,358:GOTO 240 
1920 REM Abspeiehern 

1930 GOSUB 1300:x=10:y=7:b=55:h=5:GOSUB 1660 
1940 WINDOW SWAP 0,3:PRINT" Bitte geben Sie den F 
ilenamen an:'' 

1950 PRINT“ ";:CALL &BB 8 D:INPUT N*:IF LEN(N »)>8 T 
HEN PRINT - Filename zu lang.":GOTO 1940 
1960 IF N*="" THEN 1990 

1970 N*=N*+".TXT":OPENOUT N«:x=zeile:FOR zeile=l 
TO lzeile:GOSUB 2000:PRINT #9,z*:NEXT:zeile=x 
1980 CLOSEOUT 

1990 WINDOW SWAP 0,3:GOSUB 240:ho=20:GOSUB 1170:w 
open=0:GOSUB 1300:RETURN 
2000 REM z % <- Text 

2010 IF LEN(z*)<80 OR zeile<l THEN RETURN 
2020 ÖSE,0,HIMEM+1+((zei1e~l)*80),PEEK(§z*+2)*256 
+PEEK(§z*+l),0:RETURN 
2030 REM z% —> Text 

2040 IF LEN(z*)<80 OR zeile<l THEN RETURN 

2050 ÖSE,0,PEEK(§z*+2)*256+PEEK(§z*+l>,HIMEM+1+(( 

zei1e-1)*80),O:RETURN 

2060 REM Zeile formatieren 

2070 IF w(2)=1 THEN RETURN 

2080 IF MID*(e*,1rand,rrand—1rand+1> =SPACE*(rrand 
—lrand+1) THEN RETURN 

2090 IF w(2)=2 THEN x=rrand:WHILE x>=lrand AND MI 
D*(e*,x,l>=" ":x=x-l:WEND:IF x=lrand THEN RETURN 
ELSE MID*(e*,lrand,rrand-lrand+l)=SPACE*(rrand-x) 
+MID*(e*,lrand,x-lrand+l):GOTO 2130 
2100 IF w(2)=3 THEN x=rrand:WHILE x>=lrand AND MI 
D*(e*,x,1)=" ":x=x-l:WEND:IF x=lrand THEN RETURN 
ELSE MID*(e*,1rand,rrand-1rand+1> =SPACE*((rrand-x 
>/2)+MID*(e*,lrand,x-1rand+1)+SPACE*((rrand-x)/2) 

:GOTO 2130 

2110 IF cx<lrand+(rrand—1rand)/2 THEN RETURN ELSE 
IF INSTR <e*, " ")=0 THEN RETURN ELSE IF MID*(e*,r 
rand, 1)0" " AND MID* (e*, lrand, 1 X >" " THEN 2130 
2120 i=RND*(rrand-lrand):i=i+lrand:i=INSTR(i,e*," 
" ) : a*=MID* (e*, i + 1,rrand-i):MID* (e*, i + 1,rrand-i> = 
" "+a*:GOTO 2110 

2130 ÖPRINT,(cy+2)*80,0,79,ie*:RETURN 
2140 REM Uhr stellen 

2150 x=10:y=6:b=55:h=10:GOSUB 1300:B0SUB I 66 O 1 WIN 
DOW SWAP 0,3:PRINT" Uhr stellen:":PRINT 
2160 stunde=— 1 :minute=-l 

2170 INPUT " Stunden (0-12) (ENTER):",stunde 
2180 INPUT " Minuten (0-60) (ENTER):",minute 
2190 IF stunde<0 OR stunde>12 OR minute<l OR minu 
te>59 THEN PRINT" Falsche Eingabe!":GOTO 2160 
2200 WINDOW SWAP 0,3:ho=20:GOSUB 240:GOSUB 1170:w 
apen=0:GOSUB 1300:RETURN 
2210 REM Text ganz drucken 
2220 sz=l:GOTO 2240 

2230 sz=zeile:REM Text ab Cursor drucken 
2240 x=10:y=5:h=10:b=55:GOSUB 1300:GOSUB 1660:WIN 
DOW SWAP 0,3:PRINT:PRINT" Machen Sie bitte den Dr 
ucker bereit und drücken Sie:PRINT:PRINT" *F* f 
ür Fettdruck":PRINT" ’K’ für Komprimiert":PRINT" 
’N’ für Normal":a*="" 

2250 a*=INKEY*:IF a*="" THEN 2250 ELSE a*=UPPER*( 
a*):IF a*< >"N" AND a*<>"F" AND a*<>"K" THEN PRINT 

" Falsche Eingabe!":FOR t=l TO 800:NEXT:GOTO 232 
O 

2260 REM 
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2270 WIDTH 255xPRINT #B,CHR*<27>"A"CHR*(12)CHR*<1 
8)CHR»(27)CHR*(70)CHR*< 27)CHR* <72)CHR*(27)"F"|:IF 
a*="K“ THEN PRINT #8,CHR*(15)J ELSE IF a*-"F" TH 
EN PRINT #8,CHR»(27)CHR*(69)CHR»(27)CHR*(71)| 

2280 PRINT: PRINT' 1 “CHR*(24)"KLICK"CHR*(24)" für 

Abbruch..."*x*~z*ix-z»i1■:zaila-aziWHILE z«il»<=I 

zeil« AND JOY(0)016 AND INKEY(9)00 

2290 BOSUB 2000 

2300 PRINT #8,z*!CHR*(13)J 

2310 zei1e=zei1■+1:WEND 

2320 ho=20iGOSUB I170:wopen-O:GOSUB 240:Q0SUB 130 
0:WINDOW SWAP 0,3:z*=x*tzail««xiRETURN 
2330 REM Hilfstext Anzeigen 
2340 WINDOW #0,3,78,3,22 

2350 PRINT:PRINT:PRINT“ Ver. 3.4 "CHR*(1 
64)"1985 bei Thomas M.Binzinger" 

2360 PRINT:PRINT“ Pull-Down Punkte werden durch e 
rneutes Anklicken geschlossen."iPRINT" Cursortast 
en oder Joystick bewegen Pointer.PRINT “ Ein Kl 
ick innerhalb des Textfeldes setzt CURSOR auf die 
angegebene":PRINT" Position." 

2370 PRINT“ Folgende Sonder-Kommandos gibt es (ei 
nfach entsprechende Tasten drücken):PRINT 
2380 PRINT" SHIFT und CHR*(240)CHR*(241)CHR*(24 

2)CHR*(243)" bewegen Cursor direkt im Tsxt,":PRIN 
T" CTRL und "|CHR*(240)CHR*(241)CHR*(242)CHR*(243 
>" bewegen Cursor Seite höher/tiefer/Zeilenanfang 
/-ende“:PRINTtPRINT" CTRL und ’L’ entfernt Leerze 
ichen." 

2390 PRINT" CTRL und 'F* formatiert die Zeile, in 
der Cursor sich befindet, neu." 

2400 PRINT:PRINT" TAB springt auf nächste Tabulat 
or—position. Diese wird durch einmaliges“:PRINT M 
Anklicken des Balkens über dem 5chreibfeld gestzt 
oder zurückgesetzt.":PRINT" Zweimaliges Anklicke 
n setzt den Rand.“ 


2410 RETURN 

2420 REM Einfuegen Zeile 

2430 sz=l:GOTO 2460 

2440 REM Einfuegen Seite 

2450 sz*10:z*~e«:GOSUB 2030 

2460 x-zeileiFOR y*lzeile TO x+1 STEP -1 

2470 zeile-ytGOSUB 2000:zeile-MIN(y+sz,maxi):GOSU 

B 2030:IF zeile>lzeile THEN lzeile=zeile 

2480 NEXTlFOR zeile=x+l TO x+sztz*-9PACE*(80):QOS 

UB 2030:NEXT 

2490 zeile»x 

2500 zeile=x:GOSUB 1300:wopen=0:GOSUB 240:ho=20iS 
OSUB II70:GOSUB 1300:RETURN 
2510 REM Loeschen Zeile 

2520 MID*(o*,lrand,rrand-lrand+i)-SPACE*(rrand-lr 
and+l>:z*»e*iGOSUB 2030 

2530 x“zeile:FOR y“x+l TO lzeileizeile*yiGOSUB 20 
00:zeile=y-l:GOSUB 2030:NEXT:zei1e=x:GOSUB 2000:e 
»“Z*:GOSUB 1300:ho=20:GOSUB 1170:GOSUB 1300:wopen 
=0:GOSUB 240:RETURN 

2540 REM Leerzeichen aus Zeile entfernen 
2550 ab*=MID»(e*,lrand,rrand-lrand+l):IF INSTR(ab 
*," ")=0 THEN RETURN 
2560 p“INSTR(ab*," ")+l 

2570 IF MID*(ab*,p,1)=" " THEN ab*-LEFT*(ab*,p-1) 
+RI0HT*(ab*,LEN(ab*)-p):GOTO 2570 

2580 p=INSTR(p+1,ab*," "): IF p<>0 THEN p-p+liGOT 
O 2570 

2590 IF MID*(ab*,LEN(ab»),1)»" " THEN IF LEN(ab*) 
>1 THEN ab*-LEFT*(ab*,LEN(ab*)-l)iBOTO 2590 
2600 IF LEFT*(ab*,1)=" " THEN ab*=RIGHT*(ab*,LEN( 
ab*)-1) 

2610 MID*(e*,lrand,rrand-lrand+l>“SPACE*(rrand-lr 
and+1):MID*(e»,lrand,rrand-1rand+1)»ab*+SPACE*(rr 
and—1r and—LEN(ab*)):RETURN 


Computerkurs für Schneider CPC 


BASIC-Kurse gibt es mittlerweile 
wie Sand am Meer, egal ob auf Kas¬ 
sette, Diskette oder in Buchform 
und natürlich auch in den 
Computer-Magazinen. Nur für den 
Schneider CPC hat Schneider sich 
einen ganz besonderen Leckerbis¬ 
sen einfallen lassen: DREI IN EI¬ 
NEM könnte man diesen Compu¬ 
terkurs bezeichnen, da er nicht nur 
einen BASIC-Lehrgang per Bild¬ 
schirm beinhaltet, sondern auch 
noch sehr „Lehrreiches“ über den 
Computer nebst Tastatur. Der ge¬ 
samte Kurs benötigt zwei Disketten¬ 
seiten, nämlich Vorder- und Rück¬ 
seite. 

Startet man den Computerkurs, 
so erhält man erst einmal wertvol¬ 
les Informationsmaterial über die 
Hardware, sogar mit etwas Begleit¬ 
musik. Erklärt wird nicht nur CPU, 
ROM und RAM, sondern auch das, 
was zu einer Complett-Anlage ge¬ 
hört, also die erweiterte Compute- 
ritis. Im Übungsteil, TASTATUR, be¬ 
ginnt der Computer mit seinem An¬ 
wender schon fleißig zu arbeiten, 


ohne daß es dem Bediener der 
Tastatur schwer fallen wird. Zwi¬ 
schendurch wird auch noch er¬ 
klärt, wofür z.B. die Tasten, ESC, 
CTRL, f-Tasten oder die große 
und kleine Entertaste sind, bzw, 
welche Funktionen oder Bedeu¬ 
tung diese haben. Wo sich die 
durch Software herbeigezau¬ 
berten Umlaute, ß, usw. befin¬ 
den, wird selbstverständlich 
auch gezeigt. Der Abschnitt Ta¬ 
staturübung dürfte sich für den 
Anwender bis zu einem 10-Fin- 
ger-blind-Schreiben ausdehnen 
lassen. Also, alles kein Problem. 
Erst jetzt, nachdem jedem Anwen¬ 
der Rechner, Peripherie und Tasta¬ 
tur in Fleisch und Blut übergegan¬ 
gen sind, geht es zum BASIC-Kurs 
über. Also der interessante Teil für 
jenen, der einmal ein Programmie¬ 
rer werden möchte. Ein BASIC- 
Kurs im Frage- und Antwort-Spiel. 
Nicht nur Print und Input, sondern 
auch FOR-NEXT bzw. GOSUB oder 
on GOTO bzw. on GOSUB usw.. 
Selbstverständlich werden auch 


numerische und alphanumerische 
Variablen angesprochen und er¬ 
klärt. So richtig schön rund um die 
BASIC-Sprache, bei der man nach 
kurzer Zeit schon in der Lage ist, 
seine eigenen kleinen Programme 
zu schreiben. Ergebnisse der Gra¬ 
fik-Programmierung sind z.B. ein 
Balkendiagramm, welches die Um¬ 
satzzahlen der letzten fünf Jahre 
übersichtlich anzeigt. 

Fazit: Computerkurs von Schnei¬ 
der ist schon fast ein „MUSS“ für 
den Einsteiger, aber für den Fort¬ 
geschrittenen auch nicht uninteres¬ 
sant! P.R. 
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Viele Computer, wie zum Beispiel 
der C-64 können etwas, das die 
Schneidercomputer, obwohl sonst 
in fast allen Bereichen überlegen, 
nicht können: Sprites darstellen. 
Sprites sind mehrfarbige Figuren, 
die man beliebig über den Bild¬ 
schirm bewegen kann, ohne den 
Hintergrund zu zerstören (wie es 
z.B. bei einem PRINT geschehen 
würde). Sie sind ein unentbehrli¬ 
cher Bestandteil fast aller Compu¬ 
terspiele. 

Mit dem Sprite Editor kann jetzt 
auch der Schneider Sprites dar¬ 
stellen. Sie können ganz einfach die 
Figur(en), die Sie brauchen, auf 
den Bildschirm zeichnen, den Rest 
erledigt der Sprite Editor. Nur 
noch Ihr Programm müssen Sie 
selbst schreiben. Die Bedienung 
ist denkbar einfach: Nach dem 
Start erscheint das Titelbild, und 
Sie werden nach der Größe Ihres 
Sprites gefragt. Die maximale Grö¬ 
ße ist 16 Punkte breit und 25 Punkte 
hoch, aber Sie sollten daran den¬ 
ken, daß um so mehr Zeit benötigt 
wird, um das Sprite zu zeichnen, je 
größer es ist, Anschließend haben 
Sie noch die Gelegenheit, die Far¬ 
ben zu ändern. Geben Sie dazu erst 


10 REM ****************************** 

20 REM ******** Sprite Editor ******* 

30 REM *** <c> Thomas M.Binzinger *** 

40 REM ****************************** 

50 REM 

60 GOTO 670:REM Zur Hauptschleife 
70 REM ***Tastatur abfragen & Pos aendern 
SO IF INKEY(0)=0 OR <JGY<0) AND 1>=1 THEN y=MAX<y- 
1 , 1 ) 

90 IF INKEY(2)=0 GR (JOY(O) AND 2>=2 THEN y=MIN<y+ 
1,25) 

100 IF INKEY <8)=0 OR <J0Y<0) AND 4>=4 THEN x=MAX(x 

- 1 , 1 ) 

110 IF INKEY(1)=0 OR <J0Y(0) AND 8>=8 THEN x=MIN(x 
+1,xmax+1) 

120 REM *** Blink Cursor *** 

130 PEN RND*15:FDR t=l TO 20:NEXT:LOCATE x,y:CALL 
&BB8A 

140 FOR t=l TO 20:NEXT:CALL &BB8D 
150 RETURN 

160 REM *** Bildschirm aufbauen *** 

170 PEN 1 

180 MODE O:LOCATE 1,1:FOR a=l TO ymaxSPRINT STRING 
*(xmax,144):NEXT 




















Sprites 


die Nummer der entsprechenden 
Ink an und dann die dazugehöri¬ 
gen Farben (die Farben finden Sie 
auf G3/Seite 2 des CPC 464 Hand¬ 
buchs). Sie werden dann so lange 
wieder gefragt, ob Sie die Farben 
ändern möchten, bis Sie irgend¬ 
wann mit N für Nein antworten. 
Dann erscheint das leere Feld, in 
dem Sie das Sprite zeichnen kön¬ 
nen. Der blinkende Punkt kenn¬ 
zeichnet die Position, an der Sie ma¬ 
len. Mit dem Joystick oder den 
Pfeiltasten bewegen Sie ihn, mit 
Space, COPY oder dem Feuer¬ 
knopf am Joystick setzen Sie einen 
Punkt, Um eine andere Farbe anzu 
wählen, brauchen Sie nur auf die 
Farbpalette an der Seite zu fahren 
und über der entsprechenden Far¬ 
be Space/COPY/Feuer zu 
drücken. Um einen Punkt zu lö¬ 
schen, müssen Sie die Hinter¬ 
grundfarbe nehmen, die in der 
Farbpalette eine Position über der 
ersten Farbe liegt. Rechts unten 
können Sie das Sprite in Original¬ 
größe sehen. Wenn Sie fertig sind, 
brauchen Sie nur auf ENDE zu fah¬ 
ren und dort auf den Knopf zu 
drücken. 


Der Sprite Editor 
erzeugt das 
komplette Programm 

Der Sprite Editor erzeugt nun 
das komplette Programm, das not¬ 
wendig ist, um die Spritedaten in ei¬ 
nen String zu schreiben. Sie können 
dabei Zeilennummern und Schritt¬ 
weiten bestimmen, um das Sprite- 
Programm möglichst optimal in Ihr 
eigenes Programm einfügen zu 
können. Der Spritename, den Sie 
angeben müssen, ist der Name des 
Strings, in dem das Sprite später 
steht. Wenn Sie kein weiteres Sprite 
mehr definieren wollen, können 
Sie noch entscheiden, ob Sie die 
Sprite-Routine anhängen wollen. 
Wenn Sie die erzeugten Sprites in 
einem Programm verwenden wol¬ 
len, sollten Sie das auf jeden Fall 
tun, da das der Programmteil ist, 
der die neuen BASIC-Befehle für 
die Sprites erzeugt. Nun brauchen 
Sie nur noch einen Filenamen anzu¬ 
geben, und das Programm wird auf 


190 FOR f =0 TO 15: LOCATE xmax + 1, -f+2: PEN f:PRINT CH 
R*(233);:NEXT 

200 PEN 1:a*="ENDE":FOR x=l TO 5:LOCATE xmax+l,21+ 
x:PRINT MID*(a$,x,1);:NEXT 
210 RETURN 

220 REM *** Drucke A* doppelt hoch *** 

230 FOR a=l TD LEN(a*>:b=ASC(MID*(a*,a,1)):adr=(b- 
32)*8+1+HIMEM 

240 FOR s=0 TO 7:s(s)=PEEK(adr+s):NEXT s 

250 SYMBOL 254,s(O),s(0),s(1),s(1),s(2),s(2),s<3), 

s (3) 

260 SYMBOL 255, s (4) , s (4) , s (5) , s (5) , s (6) , s (6) , s <7> , 
s (7) 

270 PRINT CHR*(254)CHR*(10)CHR*(8)CHR*(255)CHR*(11 
);:NEXT:RETURN 

280 REM *** Startbild anzeigen *** 

290 IF PEEK(&B295)< >32 THEN SYMBOL AFTER 32 

300 MODE 1:INK 3,6:INK 1,24:INK 2,15:INK 0,1:BORDE 

R 1 

310 PRINT CHR*(22)CHR*(1) ; :PEN 1:a*=“Sprite Editor 
":DEG:FOR w=0 TO 360 STEP 10:x2=C0S(w)*150+320: y2= 
SIN(w> *100+300 

320 PLOT 320,300,3:DRAW x2,y2:NEXT:LOCATE 15,6:PEN 
lsGOSUB 220:PRINT CHR*(22)CHR*(0)? 

330 INK 2, 15: PEN 2: a*=CHR* (164)+*'1985 Thomas M.Bin 
zinger":LOCATE 9,17:G0SUB 220 

340 LOCATE 5,23:PRINT SPC(34)J:LOCATE 9,23:PEN 1:P 
RINT"X—Breite des Sprites: "5s INPUT "",x:IF x<0 OR 
x>16 THEN 340 ELSE IF x MOD 200 THEN x=x + l 
350 LOCATE 5,24:PRINT SPC(34);:LOCATE 9,24:PEN 1:P 
RINT"Y—Breite des Sprites: "5:INPUT "",y:IF y<0 OR 
y>25 THEN 340 

360 IF x/2*y>250 OR x<3 OR y<3 THEN PRINT CHR*(7>; 

:GOTO 340 

370 xmax=x:ymax=y:x~l:y=l:farbe=l 

380 LOCATE 1,23:PRINT STRING*(80," ");:LOCATE 4,23 
:PRINT"Moechten Sie eine Farbe aendern?"; 

390 aa*=INKEY*: IF aa*= ,,M THEN 390 ELSE aa*=LOWER* ( 
aa*):IF aa*0"j" THEN RETURN ELSE PRINT" Ja" 

400 LOCATE 9,24:INPUT " Ink (0-15)? ",i:IF i<0 
OR i>15 THEN 400 

410 LOCATE 9,24: INPUT "nach Farbe (0-27)? ",fl:IF 
-fl<0 OR fl >27 THEN 410 

420 LOCATE 2,24:INPUT "zweite Farbe (nur ENTER wen 
n keine):",f2* 

430 IF f2*=""THEN f2=fl ELSE f2=VAL(f2*):IF f2<0 0 
R f2>27 THEN 420 

440 INK i,fl,f2:WINDOW #5,1,40,23,25:CLS #5:GOTO 3 
80 

450 REM *** Sprite Edit *** 

460 GOSUB 70:GOSUB 120:REM Cursor bewegen und blin 
ken 

470 IF (JOY (0> AND 16)016 AND INKEY (9)00 AND INK 

EY (47)00 THEN 460 

480 IF x>xmax OR y>ymax THEN 510 
















Schneider spezial 


43 


Utility 


Ein Beispiel: Wir wollen das 
Sprite BALL horizontal über den 
Bildschirm bewegen. Wir zeichnen 
also zuerst den Ball mit Spnte- 
Editor und hängen an die Balldaten 
auch noch die Sprite-Routine an. 
Mit folgendem Programm können 
wir dann den Ball unseren Wün¬ 
schen entsprechend bewegen 
(diese Zeilen werden an das vom 
Sprite-Editor erzeugte Programm 
angehängt): 

(In den Ausdrücken entspricht das 
ö dem I, also dem SHIFT-Klammer- 
affen.) 


300 MÜDE OsREM Sprites arbeiten nur in Mode O 

310 x=l:REM Sprite soll von links nach rechts wand 

ern 

320 y=100:REM in Bildschirmmitte 

330 h$=bal1$:REM immer einen HILFSSTRING verwenden 
, da bei ,3 nicht zweimal EXChanged werden kann! 
340 ÖEXC,x*l,y*l,§h$,3:REM Ball zeichnen 
350 CALL &BD19:REM dadurch ist Bewegung besser 
360 öPUT,x*l,y*l,§h*,1:REM Hintergrund wieder sehr 
eiben, ,1 verwenden da Sprite ja wieder vollstaend 
ig ueberschrieben werden soll 

370 x—x+1:IF x<70 THEN 330:REM 1 nach rechts 
380 END: REM -fertig 


Kassette oder Diskette abgelegt. 
Und das können Sie jetzt mit Ihren 
eigenen Programmen MERGEn 
und so z.B. Top-Spiele schreiben. 
Achten Sie dabei darauf, daß das 
ganze Spriteprogramm einmal 
durchlaufen worden sein muß (z.B. 
indem Sie es an den Anfang Ihres 
eigenen Programmes stellen oder 
es als Unterprogramm aufrufen), 
bevor Sie die Sprites oder die fol¬ 
genden neuen Befehle verwenden 
können: 

PUT,x,y, spritename$,a 
GET.x.y, spritename$,a 
EXC,x,y,spritename$,a 
PUT schreibt einfach das Sprite 
auf den Bildschirm, ohne es zu ver¬ 
ändern, GET holt den Inhalt des 
Bildschirms ins Sprite (damit wird 
der alte Inhalt überschrieben), und 
EXC tauscht den Inhalt von Sprite 
und Bildschirm aus. X und Y sind 
die Koordinaten, an denen das 
Sprite erscheinen soll, dabei muß 
X von 0-79 und Y von 0-199 gehen 
(diese Koordinaten gelten für MO¬ 
DE 0, in dem man mit den Sprites 
arbeiten sollte). Für X und Y müs¬ 
sen ZAHLEN eingesetzt werden! 
Wenn man trotzdem Variablen ver¬ 
wenden will, muß man mit ihnen ir¬ 
gendeine Rechnung durchführen, 
z.B, +0 oder *1, also: 
x + 0 RICHTIG 
12 RICHTIG, aber 
x FALSCH!!! 

Spritename ist der Name des 
Strings, in dem das Sprite steht (ist 
jeweils in einer REM-Zeile über 
den Datazeilen angegeben), und a 
ist eine Zahl (auch hier gilt das für X 
und Y Gesagte), die angibt, wie das 
Sprite auf dem Bildschirm darge¬ 
stellt werden soll, nämlich: 

1 = überschreibt Hintergrund 

2 = wird mit Hintergrund ge-OR-t 

3 = wird mit Hintergrund ge¬ 
mischt, TMB 


490 x 1=556+ <x*4> :y 1 = 128- (y*2) : PLOT x 1, yl, -färbe: PEN 
färbe 

500 LDCATE x,y:IF farbe=0 THEN PEN 1:PRINT CHR*<14 

4);:GOTO 460 ELSE PRINT CHR$(233)j:GOTO 460 

510 IF x<>xmax+l THEN 550 

520 IF y>17 THEN 560 

530 IF y—1 THEN 460 

540 farbe=y-2:PRINT CHR*(7);:GOTO 460 

550 GOTO 460 

560 IF y<20 THEN 460 

570 RETURN 

580 REM *** Bildschirm -> Array *** 

590 ad=&C000+240+71+l120-1:sp=4:sprite(1)=1:sprite 
(2)=xmax/2:sprite (3) —ymax 
600 xm=xmax/2sxm=xm—1:z=l 

610 FOR yl=0 TO ymaxsFOR xl=ad TO ad+xmax/2—1:spri 

te(sp >=PEEK(x1):sp=sp+l 

620 NEXT xlsGOSUB 640:NEXT yl 

630 RETURN 

640 REM ■**■* errechne naechstunteres Byte 

650 z=z + l: IF z=9 THEN z = l: ad s =ad-7*2048+S0: RETURN 

660 ad=ad+2048:RETURN 

670 REM *** Hautpragramm *■* 

680 DIM sprite(300),pr$<400>:prz1=1:z1nr=10:sehrit 
t=10:ez=0 

690 GOSUB 280:REM startscreen 
700 GOSUB 160:REM Zeichenschablone 
710 GOSUB 450:REM Zeichnen 
720 GOSUB 580:REM in array schreiben 
730 CALL &BB03:REM Tastaturpuffer loeschen 
740 MODE 2:PEN 1:CALL &BC02:PRINT:INPUT "Bitte den 
Namen des Sprites eingeben:",snameS:IF LEN<sname$ 

)>39 THEN 740 

750 PRINT"Die erste Pragrammzeile waere"zlnr", die 
Schrittweite"schritt" 

760 PRINT"Moechten Sie diese Werte aendern?"CHR$(1 
43) ; 

770 WHILE a$< >"j" AND a$< >"n":a$=INKEY$:a$=L0WERt( 
a$) :WEND:PRINT CHR$(B)aS 

780 IF a$="j" THEN INPUT"Startzei1e,Sehrittweite:" 

,zlnr,schritt 

790 IF z1=0 THEN zl=zlnr:zl$=snamet 
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BOO dzeile=zlnr+schritt:wpz=0:z*=STR*(zlnr)+ " REM 

-Daten faer "+sname* 

810 FÜR x = l TO sp 

820 IF wpz=0 THEN PRINT z*:pr*<prz1)=zS:przl=przl+ 
1:zlnr=zlnr+schritt:z*=STR*(zlnr)+" DATA " 

830 IF wpzOO THEN z*=z*+"," 

840 z*=z*+"& ,, +HEX* (sprite (x ) ,2) 

850 wpz=wpz+l:IF wpz=17 THEN wpz=0 
860 NEXT x 

870 pr*(przl)=STR*(zlnr>+" Data 9999** 

B80 PRINT pr*(przl):przl-przl+1:zlnr=zlnr+sehr i tt 
B90 prt (przl ) =STR* (zlnr >+** * , +sname*+"*=" + ,, 5TRING*( 
"+STR*(sp)+",O)" 

900 PRINT pr*(przl):przl=przl+l:zlnr=zlnr+schritt 
910 pr*(przl >=STR*(zlnr>+" Restore*'+STR* (dzei 1 e) ■*•“ 
:a=i"+sname*+"$:a=peek(a+2)*256+peek(a+1):w=0:whi1 
e w<>9999:read w:it w<>9999 then poke a,w" 

920 PRINT pr$(przl>:przl=przl+1:z1nr=zlnr+schritt 
930 pr* (przl) =STR* (zlnr) +'* a=a+l:wend" 

940 PRINT pr*(przl>:przl=przl+1:zlnr=zlnr+schritt 


1050 FOR x=l TO przl-ls PRINT #9,pr*(x):NEXT:CLOSE 
OUT 

1060 PRINT"Programm komplett abgespeichert." 

1070 END 

1080 d*(1)=“010BA52120A5CDD1BCC916A5C3C7A5C3CCA5C3 
D1A54558C34745D45055D40000000000000000000000000000 
FE032813FE04C287A5DD6EOODD23DD6600DD237D322CA5DD6E 
00DD6601222SA5DQ6E02DD" 

1090 d*(2)="66032226A5DD6E04DD66052224A5DD2A28A5DD 
6E01DD66022228A5DD2A28A5DD7E01322AA5DD7E02322BA5DD 
23DD23DD23DD2228A5C9E1C90000000000C5E5DDE5E106004F 
7CCBBFFE4038077E4779CD" 

11OO d*(3 > ="38A67778E101C93A24A56F26O03280A529EB3A 
26A56F3EC89D328DA52600CD1DBC22BAA50900F53E011808F5 
3E021803F53E0332C6A5F1CD2DA5CDA8A52A28A5DD2A8AA53A 
2BA547C53A8CA54FDD2A8A '* 

1110 d* (4) =**A53A2AA547C53A06A5FE01CC24A63AC6A5FE02 
CC2AA63AC6A5FE03C033A623DD23C110E1E52A8AA5CD26B022 
8AA5E10110C6C97ECD8EA577C9AFCD8EA577CD8EA5097ECD8E 
A5C9F53A2CA5FE01280CFE" 


950 PRINT: PRINT**-Daten komplett-": PRINT"Moechten S 
ie ein weiteres Sprite de-f inieren?"CHR* (143) » :a*=" 

960 WHILE a*< >"j" AND a*<>"n":a*=INKEY*:a*=L0WER*( 
a*):WEND:PRINT CHR*(8)a* 

970 IF a*="j" THEN 690 

9B0 PRINT*'Sol 1 an die Daten die Spr i te-Routine ang 
ehaengt werden?‘'CHR* (143) ; : a*=" " 

990 WHILE a*<>"j" AND a*< >*'n" : a*=INKEY*: a*=L0WER* ( 
a*):WEND:PRINT CHR*(8)a* 

1000 IF a*=" j" THEN BOSUB 10B0 

1010 PRINT"Das Programm hat als hoechste Zeilennum 
mer"zlnr"," 

1020 PR INT "es besteht aus*'prz 1 "Programmzei len. " 
1030 PRINT"Bi tte geben Sie den Namen an, **: INPUT"un 
ter dem es abgespeichert werden soll (bei Disk:ohn 
e Extension!!):",narae* 

1040 name$=namet+".bas":PRINT"schreibe "name*"..." 
:OPENOUT name* 


1120 d*(5)="03280BFE02280BF1AE77C9F177C9F1B677C9F1 
C54FE6AAB72B065F78E655B34779E655B728065F78E6AAB347 

78010900" 

1130 uzl=z lnr: FOR x=l TO 5: pr* (prz 1) =STR* (zlnr) +** 
Data "+d*(x> 

1140 PRINT pr*(pr 2 l>:zlnr=z1nr+schritt:przl=prz1+1 
: NEXT 

1150 pr*(przl)=STR*(zlnr)+" restare"+STR*(uzl)+":a 
d=&a501:tor x = l to 5:read d*Cx):-for y=l to len(d*( 
x)> Step 2: w=val ( "+CHR* (34) +•" V+CHR* (34) + "-*-mi d* (d* 
(x),y,2))! poke ad,w:ad=ad+l : next y,x:call &a501:": 
PRINT pr*(przl) 

1160 przl=przl + l:zlnr=zlnr+schri tt 

1170 pr * (1) =STR* (z 1 > +" memory 8<a500:rem Daten fuer 
-"+z1*:RETURN 
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Test 


Des Schneiders 
Präsident 

Testbericht Präsident 6005 


von Rudolf Petruck 
Eine Computer-Anlage ohne 
Drucker ist wie ein Auto ohne Ben¬ 
zin. Möchte der Anwender ein 
Textverarbeitungsprogramm be¬ 
treiben, ist meist ein Drucker mit 
einem sauberen Schriftbild er¬ 
wünscht. Das Gedruckte soll eben 
aussehen, als sei es mit der 
Schreibmaschine geschrieben, 
Selbstverständlich muß so ein 
Drucker auch preiswert sein. Für 
die Schneider-Anlage ist z.B. der 
NLQ-401 (NLQ = Near Letter Qua¬ 
lity / nahe Schreibmaschinen- 
Qualität) eine preiswerte Lösung. 
Für den C-64 wäre z.B. der SEI- 
KOSHA SP 1000 VC ein Drucker 
mit einem guten NLQ-Schriftbild. 
Fabriziert man hiermit einen soge¬ 
nannten Ausdruck, meint man auf 
den ersten Blick, so ein Schrift¬ 
stück käme aus einer Schreibma- 
echme. Allerdings bei näherem 
Hinsehen erkennt man sofort den 
Matrixdrucker. Der Usus-Knaktus 
ist und bleibt also immer noch ein 
Typenraddrucker. Wenn diese 
Geräte nur nicht so teuer wären. 


Schreibmaschine als 
Drucker 


Schaut man sich in den 
Computer-Shops oder in den 
Computer Abteilungen der Wa¬ 
renhäuser einmal um, so findet 
man eine optimale Lösung. Die Fir- 
m^Gruber^iete^m^rypenra^ 


Schreibmaschine inklusive Interfa¬ 
ce (serielle bzw. Centronics- 
Schnittstelle) für unter DM 1000.-. 
Sehr vorteilhaft ist natürlich, daß 
man diese Typenradmaschine 
auch ohne Computer gebrauchen 
kann. Sicherlich taucht jetzt die 
Frage auf: Welche Software nimmt 
man denn hierzu? Nun, dazu kann 
ich nur sagen: Data-Becker's TEX- 
TOMAT z.B. ist ein Programm, das 
sich sehr leicht an diese Schreib¬ 
maschine anpassen läßt. Sowohl 
bei Commodore, als auch bei 
Schneider. Wir testeten den CPC 
6128 an der PRÄSIDENT 6005. Ich 
kann nur sagen; einfach phanta¬ 
stisch, wirklich toll! Es lief vollkom¬ 
men problemlos. Natürlich Hoch¬ 
stellen, Tiefstellen, komprimierte 
Schrift usw, sind nicht möglich. Ge¬ 
nauso gut wie Grafikzeichen, die 
sind auch nicht auf einem Typen¬ 
rad. Also immer nur das, was auf 
einem Typenrad an Zeichen vor¬ 
handen ist, gelangt zum Ausdruck 
und nichts mehr oder weniger. 
Man hat natürlich bei Typenrad¬ 
maschinen die Möglichkeit, diese 
Typenräder auszutauschen, und 
ist somit m der Lage, in verschie¬ 
denen Schriftarten und -Zügen sei¬ 
ne Texte zu erstellen. Nicht nur als 
Drucker, sondern auch extern als 
reine Schreibmaschine ist die 
PRÄSIDENT 6005 gut. 

Abschließend noch etwas Tech¬ 
nik! 

DER ANTRIEB: Der moderne 
Antrieb mit Linearschrittmotor 
das große Plus für einen leisen 
Druckwagenlauf und die exakte 
Positionierung des Typenrades. 

DER KURZTEXTSPEICHER: Da¬ 


mit können Sie Texte bis zu 165 Zei¬ 
chen und Funktionen einspei¬ 
chern und danach beliebig oft au¬ 
tomatisch ausdrucken. 

KORREKTURSPEICHER: Dieser 
hat eine Kapazität von 165 Zeichen. 
Innerhalb einer Schreibzeile kön¬ 
nen Sie jeden Tippfehler löschen. 
Nach der Korrektur drücken Sie 
die Relocate-Taste, und der Druck¬ 
wagen fährt automatisch in die 
letzte Schreibposition zurück. 

FLIESSTEXT: gestattet ein flüssi¬ 
ges Schreiben ohne Überschrei¬ 
ten des rechten Randes. Nach! 
dem akustischen Warnsignal ,,Zei-| 
lenende" löst die Betätigung des 
Trennungsstriches oder der Leer¬ 
taste den Rücklauf des Druckwa¬ 
gens aus. 

ZENTRIEREN: Überschriften, 

Hervorhebungen u.a. werden au¬ 
tomatisch in die Mitte gerückt. 

DIE TABULATORTASTE: läßt die 
eingegebenen elektronischen 
Stopps schnell und zugleich weich 
ansteuern. 

DER DEZIMALTABULATOR: er¬ 
möglicht es, Zahlenwerte stellen 
gerecht untereinander zu schrei¬ 
ben — unabhängig von der Anzahl 
einzugebender Stellen. 

DIE HALBSCHRITT-TASTE' Ha¬ 
ben Sie einen Buchstaben verges¬ 
sen, kann dieser mittels der 
Halbschritt-Taste nachträglich ein 
gefügt werden. 

DAUERFUNKTIONEN: Alle 
Schreibtasten haben Dauerfunk¬ 
tion, wenn sie länger als eine hal¬ 
be Sekunde gedrückt werden, 
ebenso Rücktaste, Halbzeilen¬ 
schaltung vor- und rückwärts so¬ 
wie Leertaste. 
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WEITERE VORTEILE: 

— Elektronischer Papiereinzug 
und -austneb 

— Sperrschrift 

Elektronischer Anschlagstär¬ 
keregler 

Halbzeilenschaltung vor- und 
rückwärts: ideal für manuelle Kor¬ 
rektur außerhalb der aktuellen 
Schreibzeile, 

DIE MEHRFACHBELEGTASTE 
KB. wird zur Umschaltung der Ta¬ 
statur benötigt, um die zusätzli¬ 
chen elektronischen Funktionen 
auszulosen oder um Sonderzei¬ 
chen auszudrucken, die als dritte 
Belegung auf den Tasten 1 bis 7 


vorhanden sind. In Kombination 
mit der KB-Taste können Sie unter 
anderem folgende Funktionen 
ausführen: 

Einschreiben in den Kurztext¬ 
speicher 

Ausdrucken aus dem Kurz¬ 
textspeicher 

Einsteilen Dauerausdruck aus 
dem Kurztextspeicher 
— Zentrieren einstellen 
— Text zentriert ausdrucken 

Fließtext einstellen bzw. aus¬ 
schalten 

Farbbandanhebung zum 
leichten Auswechseln der Farb¬ 
bandkassette 


Korrekturbandanhebung zum 
leichten Auswechseln 
DAS-TYPENRAD: hat einen Vor¬ 
rat von 100 Buchstaben bzw. Zei¬ 
chen. Durch das Drop-in-System 
ist es leicht und problemlos auszu¬ 
wechseln. Sie können verschiede¬ 
ne Schriftarten wählen. Schreib- 
schritte: 1/10, 1/12 und 1/15 Zoll. 

Den letzten ,,CHECK-UP" bei all 
diesen Funktionen, brauche ich 
diese alle oder nicht, dürfen und 
müssen Sie natürlich durchführen. 
Ich meine: Für unter 1000,- DM bie¬ 
tet dieser Drucker bzw. diese 
Schreibmaschine allerhand, 





Schneider spezial 


47 


Anwendu 



Der Aufbau von 
CP/M 


CP/M besteht im wesentlichen 
aus fünf Teilen, nämlich: 

- Systemparameterbereich 
Dieser Bereich unterhalb der 

Adresse lOOhex enthält wichtige 
Informationen wie Laufwerknum¬ 
mern und Sprungadressen. 

- Anwenderprogrammbereich 
Hier werden ab lOOhex die 

.COM-Anwenderprogramme gela¬ 
den und ausgeführt. 

- Kommandoprozessor CCP 
Dieser Speicherbereich enthält 

die Programme, welche nicht von 
Diskette nachgeladen werden 
müssen (DIR, ERA, REN, SAVE, 
TYPE UND USER). 

- Basis- Diskettenbetriebssystem 
(BDOS) 




Aus den mitgelieferten Handbü¬ 
chern zu den Schneider-Compu¬ 
tern ist es leider nur mühsam oder 
gar nicht möglich, sich mit dem 
Betriebssystem CP/M einigerma¬ 
ßen vertraut zu machen. Dadurch 
bleiben einige interessante Mög¬ 
lichkeiten dieser Computer unent- 
deckt. Da es nun nicht jedermanns 
Sache ist, sich teure Bücher (bis 
über 80,- DM) zu diesem Thema zu¬ 


zulegen, wollen wir in dieser Serie 
einige Feinheiten ausarbeiten, die 
über die Anwendung des Editors 
hinausgehen. So soll es zum Bei¬ 
spiel ermöglicht werden, das Be¬ 
triebssystem zu verändern und ei¬ 
gene .COM-Dateien zu erstellen. 
Voraussetzung sollte etwas Erfah¬ 
rung auf dem Gebiet der Assem¬ 
blerprogrammierung sein. Wir 


werden hier speziell auf die 
8080-Maschinensprache einge- 
hen, da unter CP/M ein 8080- 
Assembler mitgeliefert wird. 


- Basis-Ein/Ausgabe-System 
(BIOS) 

An dieser Stelle fällt auf, daß im 
Handbuch zwei Befehle des CP/M 
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vergessen wurden, nämlich USER 
und SAVE. Der Befehl USER 3 zum 
Beispiel bewirkt eine Änderung 


Unbekannte Befehle 


der Usernummer von 0 in 3. Da¬ 
durch können mehrere Benutzer 
dieselbe Diskette mit einem eige¬ 
nen Inhaltsverzeichnis versehen. 
Wenn Sie den Befehl USER 3 ein¬ 
gegeben h^ben und anschließend 
den Befehl DIR, dann werden Sie 
bemerken, daß der Computer be¬ 
hauptet, die Diskette sei leer. Dies 
liegt daran, daß der Rechner ver¬ 
sucht, das Inhaltsverzeichnis des 
Benutzers mit der Nummer drei 
auszugeben. Wenn Sie nun USER 0 
eingeben, wird der Rechner wie¬ 
der Ihre normale Directory (engl.: 
Adressbuch) ausgeben. 

Mit dem Befehl SAVE ist es mög¬ 
lich, den Speicherbereich ab 
Adresse lOOhex auf Diskette zu 
speichern. Dies ist der Bereich, in 
dem die CP/M-Programme abge¬ 
legt werden. Wenn Sie zum Bei¬ 
spiel ’SÄVE 4 test.com' tippen, 
dann werden vier Blöcke mit je 
256 Byte Länge abgespeichert. 
Versuchen Sie es einmal mit SAVE 
0 'cont.com'. Auf der Diskette befin¬ 
det sich danach eine Datei mit 
dem Namen CONT.COM. Diese 
Datei hat natürlich die Länge null. 
Führen Sie nun das Programm 
STAT.COM aus, indem Sie die ent¬ 
sprechende Diskette einlegen und 
STAT tippen. Anschließend führen 
Sie Ihr neues Programm CONT 
aus. Da dieses die Länge null hat, 
der Rechner dies jedoch nicht 
merkt, versucht er, es an Adresse 
lOOhex zu laden, und führt es aus. 
An dieser Stelle befindet sich al¬ 
lerdings noch das Programm 
STAT, welches durch diese Maß¬ 
nahme erneut gestartet wird, ohne 
daß es neu geladen werden muß¬ 
te. 


Lokalisieren des 
BIOS mit dem DDT 


Wir wollen mit dem Systempara¬ 
meterbereich beginnen und uns 
dort ein wenig näher umsehen. An 
Adresse 0 befindet sich ein 
Sprung ins BIOS. Da die Adresse 
des Bios von Rechner zu Rechner 
unterschiedlich ist, wollen wir die¬ 
se herausfinden. Zu diesem 
Zweck booten wir CP/M und le¬ 
gen eine Diskette mit der Datei 
DDT.COM ein. Dies ist ein Disas¬ 
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sembler und Monitor. Wir starten 
diesen einfach durch Eingabe von 
DDT. Der Disassembler meldet 
sich daraufhin mit seinem Prompt; 
in diesem Fall ein kleiner Binde¬ 
strich. Um nun ab Adresse null zu 
disassemblieren, tippen wir LO. 
Wir erhalten eine Liste von Assem¬ 
blerbefehlen, welche etwa so an¬ 
fängt: 

0000 JMP AD03 

0003 ADD C 

0004 NOP 

0005 JMP 8F00 

Hier sehen wir deutlich den 
Sprung OMP) an Adresse AD03. 
Dies ist die Warmstartadresse un¬ 
seres BIOS. Da wir die Kaltstart¬ 
adresse des BIOS suchen, geben 
wir LADOO ein. Als Ergebnis erhal¬ 
ten wir eine Reihe von Sprungbe¬ 
fehlen: 

ADOO JMP C1B2 (Kaltstart- 
Adresse) 

AD03 JMP C2BE (Warmstart- 
Adresse) 

AD06 JMP C2E1 (Konsol-Status) 

AD09 JMP C2C3 (Konsol- 
Eingabe) 

ADOC JMP C2C8 (Konsol- 
Ausgabe) 

ADOF JMP C2D2 (Drucker- 

AD 12 JMP C2D7 (Stanzer- 
Ausgabe) 

AD15 JMP C2DC (Leser- 
Eingabe) 

An dieser Stelle erleben wir nun 
unsere erste Enttäuschung. Da die 
Sprünge alle auf Adressen ober¬ 
halb COOOhex verzweigen, wo sich 
der Bildschirmspeicher des Rech¬ 
ners befindet, und das BIOS sich 
auch schlecht im BASIC-ROM be¬ 
finden kann, müssen wir schlies- 
sen, daß es sich im Disketten- 
Controller befindet. Dort können 
wir natürlich nichts ändern. Wir 
müssen uns also mit unseren Än¬ 
derungen auf die Sprungtabelle 
beschränken. 

Wir wollen an dieser Stelle ver¬ 
suchen, die Ausgaben des Com¬ 
puters an Bildschirm und Drucker 
gleichzeitig zu senden. Diese 
Möglichkeit bietet sich an, da der 
Sprung zur Druckerausgabe un¬ 
mittelbar hinter dem Sprung zur 
Konsolausgabe steht. Wenn wir al¬ 


Änderungen im 
BIOS 


so den JMP-Befehl an die Adresse 
ADOC in einen CALL-Befehl än¬ 
dern, wird nach der Ausführung 
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der Bildschirmausgaberoutine an 
die Adresse ADOF zurückgekehrt 
und zur Druckerausgabe ver¬ 
zweigt. 

Unsere Änderungen können wir 
leicht mit dem DDT durchführen. 
Starten Sie ihn also wie vorhin und 
geben Sie nach dem Prompt 
'AADOC' ein. Sie erhalten folgen¬ 
des Bild: 

ADOC CALL C2C8 (alles, was 
nach ADOC steht, geben Sie ein). 

ADOF (an dieser Stelle drücken 
Sie nur ENTER). 

Sollten Sie jetzt keinen Drucker 
angeschlossen haben, wird Ihr 
Rechner streiken. Er wartet näm¬ 
lich so lange, bis er ein Zeichen an 
den Drucker ausgeben kann. Be¬ 
tätigen Sie daher die Tasten CTRL 
und C gleichzeitig. Dadurch wird 
ein Warmstart von CP/M ausge¬ 
löst und die Änderung wieder 
rückgängig gemacht. 

Diese Methode ist natürlich et¬ 
was zu umständlich, um sie jedes¬ 
mal durchzuführen, wenn man et¬ 
was ausdrucken will. 

Wir haben festgestellt, daß ab 
Adresse &AD00 eine Sprungtabel¬ 
le steht, welche zu bestimmten Ein- 
und Ausgaberoutinen verzweigt. 
Wir haben gelernt, den DDT zu 
benutzen, um in dieser Tabelle 
Änderungen vorzunehmen. Au¬ 
ßerdem haben wir mit dem Befehl 
'SAVE 0 CONT.COM' ein Pro¬ 
gramm erzeugt, mit dessen Hilfe 
wir Programme, die wir bereits 
verlassen haben, die sich aber 
noch im Speicher befinden, erneut 
starten können. Dies erweist sich 
zum Beispiel als sinnvoll, wenn wir 
LOGO versehentlich verlassen ha¬ 
ben, ohne unsere Arbeit zu si¬ 
chern. In diesem Fall können wir 
durch Eingabe von CONT unser 
LOGO erneut starten, ohne daß 
unser Programm gelöscht wird. 

Wir wollen nun den DDT nutzen, 
um selbst kleinere Programme zu 
schreiben. Dazu starten wir diesen 
und geben hinter dem Prompt 
’alOO' ein. Dies bedeutet, daß wir 
nun ab Adresse &100 ein Assem¬ 
blerprogramm schreiben können. 
Der DDT zeigt uns nun also die er¬ 
ste Adresse an, und wir können 
unser kleines Programm einge¬ 
ben: 

LHLD 0001 

LXI D.0009 

DAD D 

MVI M,CD 

RET 

Der entsprechende Z80-Code 
würde so aussehen: 
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LD HL,(0001) 

LD DE,0009 
ADD HL,DE 
LD (HL),CD 
RET 

Wenn Sie Ihr Programm fertig 
eingegeben haben, drücken Sie 
noch einmal Enter, um den Assem¬ 
blermodus des DDT zu verlassen. 
Unser Programm lädt zunächst 
den Wert an Adresse 1 in das HL- 
Register. Dieser Wert stellt ja, wie 
wir bereits gesehen haben, die 
Warmstartadresse des CP/M dar. 
Um nun zur Adresse für die Kon¬ 
soleingabe zu gelangen, müssen 
wir zum HL-Register 9 hinzuaddie¬ 
ren. Dies erreichen wir über den 
Umweg mit dem DE-Register und 
dessen Addition zum HL-Register. 
Unser HL-Register enthält jetzt die 
Adresse, an der der JMP-Befehl 
für die Konsolausgabe steht. An 
diese Adresse schreiben wir nun 
einfach einen CALL-Befehl (&CD). 
Dadurch kehrt das Programm nun 
nach jeder Konsolausgabe zu un¬ 
serer Sprungvektortabelle zurück 
und trifft auf den Vektor zur 
Druckerausgabe. Dadurch wer¬ 
den alle auf den Bildschirm ausge¬ 
gebenen Zeichen auch an den 
Drucker geschickt. Verlassen Sie 
nun den DDT mit ’GO’ oder 'CTRL 
C’. In beiden Fällen wird ein 
Warmstart von CP/M ausgelöst. 


Warmstart 


Der G-Befehl des DDT startet das 
Programm an der angegebenen 
Adresse. In unserem Fall ist dies 
die Adresse 0, an der ja der 
Sprung zum Warmstart steht. Um 
unser erzeugtes Programm nun 
auf Diskette zu sichern, tippen wir 
'SAVE 1 DRUCKAN.COM'. Mit die¬ 
sem Programm können Sie nun 
zwar jederzeit den Drucker ein¬ 
schalten, Sie wollen ihn aber 
schließlich auch irgendwann wie¬ 
der ausschalten. Dazu müssen Sie 
das gleiche Programm noch ein¬ 
mal schreiben; diesmal ersetzen 
Sie den Befehl ’MVI M,CD’ jedoch 
durch ’MVI M,C3’. Dadurch erset¬ 
zen Sie den CALL-Befehl wieder 
durch einen JMP-Befehl. Dieses 
Programm nennen Sie dann ein¬ 
fach DRUCKAUS.COM. 


ASM.COM 


Diese beiden Programme hätten 
wir auch mit dem mitgelieferten 
8080-Assembler ASM.COM erzeu¬ 
gen können. Bei so kurzen Pro¬ 
grammen geht es jedoch schnel¬ 
ler, wenn man direkt die Möglich¬ 
keiten des DDT nutzt. Zur Entwick¬ 
lung von längeren Programmen 
erstellt man in einem Editor zu¬ 
nächst den Programmtext. Für die¬ 


sen Zweck kann man den mitgelie¬ 
ferten Editor ED.COM benutzen. 
Wesentlich komfortabler sind je¬ 
doch einfache Text Verarbeitungs¬ 
programme, wie zum Beispiel Tas- 
word, Wordstar oder der Turbo- 
Pascal Editor. Wenn Sie den As¬ 
sembler ASM.COM benutzen, ist 
es notwendig, daß Sie die Memno- 
nics in Großbuchstaben schrei¬ 
ben. Unser kleines Programm 
würde dann etwa so aussehen: 
ORG 100H 
LHLD 1 
LXI 9 
DAD D 
MVI M.CDH 
ET 


Um das Programm zu strukturie¬ 
ren, ohne ständig speicherfres¬ 
sende Leerzeichen benutzen zu 
müssen, können Sie TABs'CHR$(9)’ 
verwenden. Auch manche Edito¬ 
ren unterstützen diese Möglichkeit 
(z.B. der EDCOM). Nach dem Ab¬ 
speichern des Programms starten 
Sie nun den Assembler mit 'ASM 
filename'. Als Filename ist der Na¬ 
me der zu assemblierenden Datei 
einzugeben. Diese muß die Exten¬ 
sion .ASM besitzen. Der Assem¬ 
bler erzeugt nun zwei neue Datei¬ 


en mit den Erweiterungen .HEX 
und .PRN. Das .PRN-File enthält 
das assemblierte Quellprogramm 
mit dem erzeugten Code. Dieses 
kann man sich mit TYPE ’file- 
name.PRN’ ansehen. Das .HEX- 
File kann man sich ebenfalls anse¬ 
hen. Es enthält den erzeugten Co¬ 
de im Intel-Hex Format. Mit 'LOAD 
filename’ kann man das ausführba¬ 
re .COM-File erzeugen. 

Diese Methode hat den Vorteil, 
daß man beim Auftreten eines 
Fehlers jederzeit das Quellfile än¬ 
dern kann. Bei einem Absturz ei¬ 
nes unausgereiften Programms 
geht so auch das Programm nicht 
so leicht verloren, (tb) 
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Parallele Ein-Auscjabeschnittstelle 

für den CPC 464 


Ein universeller Einsatz des Computers, z.B. für Steuer- und Regelaufgaben, wird erst durch einen vollständigen Daten¬ 
austausch mit anderen Geräten ermöglicht. Die im Schneider CPC 464 eingebaute 7 Bit Parallelschnittstelle ist leider sehr 
unzulänglich und nur zur Datenausgabe geeignet. Im folgenden wird eine vollwertige Parallelschnittstelle mit der zuge¬ 
hörigen Software vorgestellt, die sowohl die Eingabe als auch die Ausgabe von 8 Bit Daten erlaubt. Die Anwendungspalet¬ 
te ist unbegrenzt. Sie ermöglicht beispielsweise den Anschluß eines Analog-Digitalwandlers (ÄDC) zur Meßwerterfas¬ 
sung oder eines Digital-Analogwandlers (DAC) zur Ausgabe, den Anschluß eines zweiten Computers, eines Plotters oder 
grafikfähigen Druckers. Preiswerte, auf dem Markt erhältliche Parallel-Seriell-Umsetzer (z.B. Elektor) ermöglichen auch 
den direkten Anschluß eines Akustikkopplers oder Modems. Im folgenden werden der Aufbau und die Funktion der 
Schnittstelle ausführlich beschrieben. 


Ä) Hardware-Aufbau der Schnittstelle 


Das Kernstück der Schnittstelle 
ist der programmierbare PIO- 
Baustein 8255A (Bild 1), dessen 24 
E/A-Anschlüsse in drei Betriebsar¬ 
ten verwendet werden können. 


1. Die Betriebsarten 
des PIO 8255 


1.1 Betriebsart 0 


Sie dient zur einfachen Ein- und 
Ausgabe. Die vorhandenen An¬ 
schlüsse werden in zwei Gruppen 
zu je 8 Leitungen (Port A und Port B) 
und eine Gruppe mit 2 * 4 Leitun¬ 
gen (Port C) unterteilt. Jede Gruppe 
kann unabhängig von der anderen 
als Eingang oder Ausgang pro¬ 


grammiert werden. Ausgabedaten 
werden im Gegensatz zu Eingabe¬ 
daten im Baustein zwischengespei¬ 
chert. 


1.2 Betriebsart 1 


Sie dient zur getasteten Ein- und 
Ausgabe mit Handshake-Signalen. 
Es stehen zwei Gruppen mit je ei- 
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ßüd 1 

Anschlußbelegung des PIO 8255A 


0- - D, 
u 7 

Data 

Datentransfer zwischen 

Baustein und Prozessor 

CS 

Chip Select 

Low - Baustein wird ausgewahlt 

RO 

Lesen 

Low - Daten oder Zustandsinfor¬ 
mationen werden zum 

Prozessor gesendet 

WR 

Schreiben 

Low - Daten oder Steuerbefehle 
werden in den Baustein 
eingelesen 

Reset 

Reset 

High - alle internen Register ein¬ 
schließlich Steuerregister 
werden zurückgesetzt; 
alle Ports arbeiten als Ein¬ 
gabekanäle in Betriebsart 0 

A o ■ A 1 

Adress- 

leitungen 

zur Register¬ 
wahl 

A^ Ag Register 

0 0 Port A 

0 1 Port B 

1 0 Port C 

1 1 Steuerregister 

PA q - PA ? 

Port A 

Bit 0 - Bit 7 

PB 0 - PB ? 

Port B 

Bit 0 - Bit 7 

pc q - pc 7 

Port C 

Bit 0 - Bit 7 

vcc 

Versorgungs¬ 

spannung 

+ 5V 

GND 

Masse 

ov 


nem 8Bit breiten Datenport (Port A 
und Port B) und einem 4Bit breiten 
Steuerport (Port C) zur Verfügung. 
Jeder Datenport sowie die nicht 
verwendeten Leitungen des Steu¬ 
erports können unabhängig von¬ 
einander als Ein- oder Ausgang 
programmiert werden. In dieser 
Betriebsart werden bei den Ports A 
und B alle Ein- und Ausgabedaten 
zwischengespeichert. 


1.3 Betriebsart 2 


Sie ermöglicht einen Datenaus¬ 
tausch auf einem einzigen 8 Bit 
breiten Port (Port A, Zweiwegbus}. 
Den Austausch der Steuersignale 
übernimmt ein 5 Bit breiter Steuer¬ 
port (Port C). Alle drei Betriebsar¬ 
ten können auch miteinander kom¬ 
biniert werden. 


2. Die Programmierung 
des PIO-8255 


Die Programmierung des Bau¬ 
steins ist verhältnismäßig leicht 
und mit einfachen In- und Out- Be¬ 
fehlen durchführbar. Intern besitzt 
der 8255 vier Register, die über die 


Steuerwort 

°>kbN°3hN °o 




1 * Betriebsart «etre« 


Bild 2 

Bedeutung des Steuerwortes bei 
gesetztem Bit 7 
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Steuerwort Bild 3 



Adressleitungen AO und Al ange¬ 
wählt werden können. Drei dieser 
Register dienen zur Datenübertra¬ 
gung, das vierte ist das Steuerregi¬ 
ster. Das in dieses Register ge¬ 
schriebene Steuerwort bestimmt 
bei gesetztem 7. Bit die Arbeitswei¬ 
se der Schnittstelle. Die Bedeutung 
der einzelnen Bits ist in Bild 2 zu¬ 
sammengestellt. Bei gelöschtem 7. 
Bit ermöglicht das Steuerwort au¬ 
ßerdem das Setzen bzw, Löschen 
einzelner Bits des Registerinhalts 
von Port C (Bild 3).Da die meisten 
Peripheriegeräte mit Quittungssig¬ 
nalen arbeiten, bietet sich für die 
Schnittstelle die Betriebsart 1 an, 
welche daher auch für die be¬ 
schriebene Hard- und Software ge¬ 
wählt wurde. Dabei wird Port A zur 
Datenausgabe und Port B zur Ein¬ 
gabe verwendet (Bild 4). Hierzu 
muß die Schnittstelle mit dem Steu¬ 
erwort &x 1010A11 x initialisiert wer¬ 
den. Mit Bit 3 (A) können die zur 
Steuerung nicht benötigten An¬ 
schlüsse C4 und G5 des Ports C als 
Eingang (1) oder Ausgang (0) pro¬ 
grammiert werden. Bit 0 ist in die¬ 
ser Betriebsart ohne Bedeutung. 


3. Die Adressierung 
des RIO 8255 

Die serienmäßige Drucker¬ 
schnittstelle des CPC 464 wird 
über die Adresse &EFxx angespro¬ 
chen. Damit die volle Funktionsfä¬ 
higkeit dieser Schnittstelle erhal¬ 
ten bleibt, bekam die neue Schnitt¬ 
stelle eine eigene Adresse. Wie 
aus dem CPC-Handbuch ersicht¬ 
lich ist, stehen dem Anwender für 
eigene Erweiterungen die Adres¬ 
sen &F8xx bis &FBxx mit xx = &E0 
— &FF zur Verfügung. Mit Rück¬ 
sicht auf spätere Erweiterungen er¬ 
folgt die korrekte Adressierung 
der Schnittstelle über einen einfa¬ 
chen Adressendekodierer, der die 
Adressen &F8Fx bis &FbFx zuläßt 
(siehe Schaltplan Bild 5). Die Ein- 
Ausgabeschnittstelle wurde auf 
die Adresse &F8Fx gelegt. Dabei 
dienen die oberen 12 Adressbus 
zur Bausteinauswahl und die unter¬ 
sten 2 Bits (AO und Al) zur Register¬ 
auswahl (A2 und A3 werden zur 
Adressierung nicht herangezogen, 
was evtl, bei nachfolgenden Erwei¬ 
terungen berücksichtigt werden 
muß). Damit erhält man die Regi¬ 
steradressen: Datenregister Port A 
&F8F0, Datenregister Port B &F8F1, 
Datenregister Port C &F8F2, Daten¬ 


register &F8F3. Die Initialisierung 
der Schnittstelle erfolgt dann mit 
den Befehlen: LD A,&xl0101111; 
Steuerwort LD BC, &F8F3; Adresse 
des Steuerregisters OUT (C),A; 
Ausgabebefehl an das Steuerregi¬ 
ster. Auf die gleiche Weise werden 
auch die Datenregister beschrie¬ 
ben bzw. gelesen. 


4. Das Steuerport des 
PIO 8255 

Der Registerinhalt des Steuerports 
C hat in der Betriebsart 1 die Be¬ 
deutung: OBF= Zustand des 
Ausgabe-Puffer Flipflops, INTE 
und INTR = Interrupt-Anfor¬ 
derung, E/A = Eingang/Ausgang, 
IBF = Zustand des Eingabe-Puffer 
Flipflops, von diesen Bits werden 
nur Bit 1 (IBF) und Bit 7 (OBF) ausge¬ 
wertet. (Siehe Tabelle 3). 


4.1 OBF (Ausgabe- 
Puffer Flipflop voll) 

Der OBF-Ausgang wird Low, 
wenn Daten zur Ausgabe im Daten¬ 
register des Port A bereitstehen. 
Das OBF-Signal entspricht somit 
dem Strobe beim Ausgabevor¬ 
gang. Es wird von der ansteigen¬ 
den Flanke des WR-Signals gesetzt 
und von der fallenden Flanke des 
vom Peripheriegerät kommenden 
ACK-Signals zurückgesetzt (siehe 
Impulsdiagramm Bild 4). 


IBF (Eingabe-Puffer 
Flipflop voll) 


Der IBF-Ausgang wird High, 
wenn Daten in das Datenregister 
des Port B eingelesen wurden. Die¬ 
ses Signal entspricht somit dem 
ACK-Signal beim Einlesevorgang. 
Es wird durch die fallende Flanke 
des Strobe-Signals gesetzt und 
durch die ansteigende Flanke des 
RD-Signals zurückgesetzt. 


Hardware-Aufbau der 
Schnittstelle 

Bild 5 zeigt den Schaltplan ein¬ 
schließlich der Bestückungsliste. 
Die Schaltung wurde auf einer 
Lochrasterplatine in Wire Wrap- 
Verdrahtung auf gebaut, Die Ver¬ 
bindung mit dem Rechner ge¬ 
schieht über den Erweiterungsbus 
an der Gehäuserückseite, an dem 
auch das Floppy-Laufwerk ange¬ 
schlossen wird. Hierfür wurde ein 
Adapterstück hergestellt, beste¬ 
hend aus einem 50-poligen Plati¬ 
nenstecker, der an ein ca. 2,5 cm 
langes Platinenstück mit Leiterbah¬ 
nen im 2,54 mm Raster angelötet 
wird. An das Platinenstück wird 
möglichst dicht am Stecker das 
Verbindungskabel zur Schnittstel¬ 
lenplatine gelötet. Auf das freie 
Platinenende kann nun wieder der 
Floppy-Controller aufgesteckt wer¬ 
den. Die Pin-Belegung des Erwei- 
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WR 

übt 

intr a 

ack* 

Ausgang 

E/A 

Eingang 

STB 
I BF 
INTR 0 
W 



t A0B s Zeit von ACK=0 bis OBF=l 
* ^CK-Impulsbreite 
t OQ = periphere Osten vor STB 

Bild 4 

Impulsdiagramm bei Ein-und Ausgabe in l ST ' ST0 - Impulsbreite 
der Betriebsart 1 ^RIB * won ^0*1 bis IBF*0 


tyoB * Zeit von WRil bis OBFsO 
t WB * Zeit von WR«1 bis Ausgabe 
tp H * periphere Daten nach STB 
tgiß * Zeit von STB*0 bis IBF*1 


terungsbusses ist im CPC- 
Handbuch, Anhang V/Seite 2 oben 
angegeben. Der Anschluß der Ein¬ 
gabegeräte an das Port B des 
Schnittstellenbausteins erfolgt z.B. 
über einen 25-poligen Cannon- 
stecker. Für den Anschluß des 
Druckers wurde ein Platmenstück 
mit 2X17 Leiterbahnen mit dem Port 
A des Bausteins verbunden und auf 
der Platine befestigt, so daß das 
vorhandene. Druckerkabel weiter¬ 
verwendet werden kann. Die Pin- 
Belegung des Platinenstücks ist 
aus dem CPC-Handbuch, Anhang 
V/Seite 2 unten ersichtlich. 


1. Beschreibung 
der BASIC'Befehle 

Nach dem Laden des Pro¬ 
gramms (über BASIC-Lader oder 
Maschinenprogramm) muß die 
Schnittstelle einmalig mit 'Call 
&A500’initialisiert werden. Danach 
kann die Schnittstelle mit folgen¬ 
den BASIC-Befehlen angespro¬ 
chen werden: 

a) Ein Strichpunkt nach Input +8 
unterdrückt den Zeilenvorschub 
nach der Eingabe. Ein Strichpunkt 


nach dem Ausgabetext gibt als Ein¬ 
gabesignal ein Fragezeichen aus. 
Ein Komma unterdrückt das Frage¬ 
zeichen. 

b) Ein Strichpunkt nach Line Input 
+ 8 unterdrückt den Zeilenvor¬ 
schub nach der Eingabe. 

c) Print + 8, (< Ausgabeliste >)(< 
Using Format ^^Trennzei¬ 
chen >). Ein Komma als Trennzei¬ 
chen gibt den folgenden Aus¬ 
druck in der nächsten Druckzone 
aus. Ein Strichpunkt erzeugt ein 
Leerzeichen. 

d) Write +8, (< Ausgabeliste). Die 
in der Ausgabeliste angegebenen 


Werte werden durch Kommata 
getrennt ausgegeben, 

e) List (<Zeilenbereich>), + 9. Es 
wird der angegebene Zeilenbe¬ 
reich ausgelistet. Die Input- 
Befehle (a und b) sprechen immer 
die neue Schnittstelle an. Die 
Ausgabebefehle können wahlwei¬ 
se auf der neuen oder alten 
Schnittstelle ausgegeben werden. 
Zur Unterscheidung dient die 
Speicherstelle &A500. Es gilt: 
Inhalt von &A500 = 0 Ausgabe auf 
der neuen Schnittstelle. Inhalt von 
&A500 > 0 Ausgabe auf der alten 


Schnittstelle. Nach der Initialisie¬ 
rung ist &A500 = 0, d.h., die Ausga¬ 
be erfolgt auf der neuen Schnitt¬ 
stelle. 

2. Programmaufbau 

Wird bei der Ausführung eines 
BASIC-Befehls eine Routine des 
Betriebssystems benötigt, so 
springt der BASIC-Interpreter die¬ 
se im allgemeinen nicht direkt an, 
sondern über die sog. Indirections, 
die im RAM untergebracht sind. Da 
der RAM-Bereich beschrieben 
werden kann, besteht hier die 
Möglichkeit, den Befehlsablauf zu 
beeinflussen. Als günstig erweist 
sich hierbei, daß alle für die Paral- 
lelschnittstelle wichtigen Ausgabe¬ 
befehle die Vektoradresse &BD2B 
benutzen, die normalerweise ei¬ 
nen Einsprung in die Druck- 
Routine des Betriebssystems be¬ 
wirkt. Die Eingabe-Routinen benut¬ 
zen für Kanalnummern < + 9 die 
Vektoradresse &BD3a, welche ei¬ 
nen Sprung in die Edit-Routine des 
Betriebssystems enthält. Werden 
diese zwei Vektoradressen auf die 
Routinen der neuen Schnittstelle 
umgeleitet, dann können alle Ein- 
und Ausgabe-Routinen des BASIC- 
Interpreters von den Routinen der 
neuen Schnittstelle übernommen 
werden. Auf diese Weise bleibt das 
Maschinenprogramm kurz und be- 


B) Software der Schnittstelle 


















































nötigt wenig Speicherplatz im 
RAM. Die geänderten Vektor¬ 
adressen sind in Tabelle 1 angege¬ 
ben. 

3. Beschreibung der 
wichtigsten 
Maschinenroutinen 


3.1 Routine INIT 
Adresse &A501 


Diese Routine dient zur Initialisie¬ 
rung der Ein-Ausgabe-Schnittstel- 
le. Sie braucht nur einmal nach 
dem Laden des Maschinenpro¬ 
gramms mit CALL &A501 aufgeru¬ 
fen zu werden. 


3.2 Routine COMP1 
Adresse &A50D 
Vektoradresse &BD3A 


Dieser Programmteil entschei¬ 
det für alle BASIC-Eingabebefehle 
mit Kanalnummern < + 9 (z.B. Line 
Input +6, a$), zu welcher Eingabe¬ 
routine verzweigt werden soll. Ist 
die Kanalnummer, die bei Adresse 
&AC21 abgespeichert ist, kleiner 
als + 8, dann springt das Programm 
in das Betriebssystem zur SCREEN 
EDIT- Routine (&2A98), die die Ein¬ 
gabe von der Tastatur verwaltet. Ist 
die Kanalnummer +8, dann wird 
zur Routine ICH AR verzweigt, die 
die Eingabe über die Parallel¬ 
schnittstelle steuert. 

3.3 Routine ICHAR 
Adresse &A51A 


Diese Routine liest Daten von 
der Eingabeschnittstelle in den 
Akku, speichert sie in einem 255 
Zeichen großen Eingabepuffer 
(& ACA4-& ADA3) ab und gibt sie am 
aktuellen Bildschirmfenster aus. 
Steuerzeichen werden dabei nicht 
geführt, sondern als Symbol ausge¬ 
geben. Wenn das letzte Zeichen 
ein Linefeed war oder die ESC- 
Taste gedrückt wurde, kehrt das 
Programm zu der aufrufenden Rou¬ 
tine zurück. Linefeed und Cariad- 
ge Return werden dabei nicht in 
dem Puffer zwischengespeichert. 
Ist eine Zeichenfolge länger als 255 


14 14 14 1« 20 



Bild 5 
Schaltplan 



OBF 

inte a 

E/A 

E/A 

INTR. 

A 

TNTEß 

IBF 

intr b 

Bit 

7 

6 

5 

4 

3 

2 

1 

0 


Gruppe A 

Gruppe B 


OBF = Zustand des Ausgabe-Puffer Flipflops 

INTE und INTR = Interupt-Anforderung 

E/A = Eingang/Ausgang 

IBF = Zustand des Eingabe-Puffer Flipflops 


Zeichen (d.h., das 255te Zeichen ist 
noch kein LF), dann wird die Feh¬ 
lermeldung „over flow" ausgege¬ 
ben, und die Routine kehrt eben¬ 
falls zurück. Die Beeinflussung des 
Carry-Flags läßt sich aus Tabelle 2 
entnehmen. Diese Routine prüft, ob Daten in 


3.4 Routine IBUSY 
Adresse &A57C 
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VEKTORADRESSE 

(RAM) 

ALTE SPRUNGADRESSE 
(BETRIEBSSYSTEM) 

NEUE SPRUNGADRESSE 
(RAM) 

&BD3A 

&2A98 SCREEN EDIT 

& A50D C0MP1 

&BD2B 

&07F2 PRINT CHAR 

& A592 C0MP2 

&BD2E 

&081B BUSY PRINTER 

& A5CE OBUSY 

&BD31 

&0807 SEND PRINTER 

& A5C6 SEND 


Schneider spezial 

Tabelle 1 


das Portregister B des Schnittstel¬ 
lenbausteins eingelesen wurden. 
Wenn Daten eingelesen wurden, 
kehrt sie mit gesetztem Carry-Flag 
zur aufrufenden Routine zurück, 
sonst ist das Carry-Flag gelöscht. 


3.5 Routine INPUT 
Adresse &A589 


In diesem Programmteil wird der 
Inhalt des Portregisters B in den 
Akku gelesen. Es wird dabei nicht 
geprüft, ob eine Eingabe über die 
Schnittstelle erfolgte. Das Carry- 
Flag wird gesetzt. Die Routine IBU- 
SY enthält eine Verzögerungsrouti¬ 
ne (&BD19), Warten auf Büdrück- 
lauf), damit sichergestellt ist, daß 
vor Aufruf der Routine INPUT das 
Strobe-Signal des Eingabegerätes 
zurückgesetzt ist. 


3.6 Routine COMP2 
Adresse &A592, Vek¬ 
toradresse &BD2B 


Diese Routine hat verschiedene 
Prüffunktionen. Der BASIC- 
Interpreter gibt bei den Input- 
Befehlen alle Kommentare, Frage¬ 
zeichen u.s.w. auf dem Gerät mit 
der Kanalnummer des Input- 
Befehls aus. Dieses ist aber bei den 
Befehlen, welche die Ein- Ausga¬ 
beschnittstelle ansprechen, nicht 
sinnvoll.Die COMP2-Routine über¬ 
prüft deshalb anhand aktueller To¬ 
kens, ob es sich um einen Eingabe¬ 
befehl handelt, und gibt in diesem 
Fall alle Zeichen auf dem aktuellen 
Bildschirmfenster aus. Handelt es 
sich um einen Ausgabe-Befehl, 
dann verzweigt die Routine je nach 
dem Inhalt der Speicherstelle 
&A400 entweder zur Druckroutine 
des Betriebssystems (alte Drucker¬ 
schnittstelle) oder zur Routine 
OCHAR ( neue Ein- Ausgabe¬ 
schnittstelle). 


3.7 Routine OCHAR 
Adresse &A5AE 

Diese Routine gibt das im Akku 
befindliche Zeichen über die Ein- 
Ausgabeschnittstelle aus und kehrt 
bei gelungener Übertragung mit 
gesetztem Carry-Flag zur aufrufen- 
den Routine zurück. 


3.8 Routine SEND 
Adresse &A5C6, Vek¬ 
toradresse &BD2E 


Diese Routine liest das im Akku 
befindliche Zeichen in das Daten¬ 
register des Port A, wodurch das 
dem Strobe entsprechende OBF- 
Signal auf Low-Pegel gesetzt wird. 


3.9 Routine OBUSY 
Adresse &A5CE, 
Vektoradresse 
&BD2E 


Diese Routine überprüft das 
OBF-Signal. Solange dieses Signal 
Low ist, ist der Inhalt des Portregi¬ 
sters A noch nicht vom Ausgabege¬ 
rät übernommen worden. Ist OBF 
High, dann können Daten zur Aus¬ 
gabe in das Datenregister des Port 
A geschrieben werden. In Tabelle 
2 sind noch einmal die wichtigsten 
Maschinenroutinen zusammenge¬ 
faßt. 


Tabelle 2 


ROUTINE 

ADRESSE 

RÜCKSPRUNG- 

CARRY-FLAG 

BEMERKUNGEN 



BEDINGUNG 



ICHAR 

&A51A 

LF 

C=1 

Pufferinhalt wird bei Basic- 
Programmen der angegebenen 
Variablen übergeben 



ESC 

C=0 

in Basic wird das Programm ab¬ 
gebrochen 



OVERFLOW 

C=1 

in Basic wird das Programm 
nicht abgebrochen, der Puffer¬ 
inhalt wird der angegebenen 
Variablen zugewiesen 

IBUSY 

&A57C 

keine 

c=o 

Daten wurden nicht eingelesen 




C=1 

Daten wurden eingelesen 

INPUT 

&A5B9 

keine 

C=1 

Registerinhalt von Port B wird 
in den Akku geschrieben 

OCHAR 

&A5AE 

keine 

C=1 

Zeichenausgabe gelungen 




c=o 

Zeichen konnte nicht ausgegeben 
werden 

SEND 

&A5C6 

keine 

unbekannt 

Akkuinhalt wird in das Register 
Port A geschrieben 

OBUSY 

&A5CE 

keine 

C=1 

Datenausgabe noch nicht beendet 




c=o 

es können Daten Busgegeben werden 
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BASIC-LADER 

10 MEMORY &R4FF::RESTORE 
£0 FÜR i=3.fl500 TO S.A5E2 
30 READ a*:*sVflL< "Sc M +a*>:s»s+a 
40 POKE i,a 
50 HEXT 

60 IF SO&7EEE THEM PRINT" Fehl er in Data-Zei len" : END 


80 POKE &BD2B.. 3»C2 : POKE v:£'02C, '>52 POKE & 
90 POKE ScED£E,&C3:P0KE ?*ED2F&CE POKE & 
10O POKE SeEDS 1, StCS : POKE 8.BD32, 3*C©: POKE 
110 CALL &R501:END 

1 £0 DATA O0,3*,af,0 1 ,f3,f8.ed,79,87,32, 
1 30 DATA 3a, 21.. ae , f e, 08 ■ 20.. 03.. c3, 1 a, a5 , 
140 DATA c3, d5, ©5,21, a.4 ac, 06, ff, e5, c5, 

, 6b, a5.. £8,05, de, 6f, a5,28,10. cd, 09, bb, t"e 
150 DATA 36.OO,e1,d1■c1,c9 
160 DATA ©5,21,5c,a5,7e,23,b7,c4,5a,bb, 
170 DATA 07,20,4f,76,65,72,66,6c,6f,77, 
180 DATA fe,Oa,37,c3 
196 DATA fe,0d,37,c9 

200 DATA 77,c5,d5,*5,cd,5d,bb.$1,d1,c1. 
210 DAT fl c5,01,f2, fS,ed,78 . 1 f ,1 f ,cd 1 9. 
£20 DATA c5,01,f1,f3,ed,73,c1•37,c9 


230 

DATA 

d5•e5,5f, 

2a,34,ae,22, 

7 e 

,03, 

,cf ,f; 

£,87 



240 

DATA 

c5,cd,b4. 

a5,c1,c3 


250 

DATA 

01,32, ÖG.. 

cd,c6,a5,cd, 

. ce 

260 

DATA 

c5,01,f0, 

f8,ed,73,cl, 

. c3 

270 

DATA 

c5, d5, 5f', 

01 f2, f3,ed, 

78 

280 

DATA 

7b,dl,cd, 

.5a,bb,37,c3 



ED2D, S«A5 
ED30,3.A5 
&BD33, S.A5 

00,a5,c9 
cf,38,aa 

cd,7c,a5,de,39,a5.de,67,a5,c1,©1, 23, 14,di 
,fc,£8,03,c3•22,a5 


20, 

f 8, 

i el, 


c3, 

,45, 

a5 

00 







23.. 

05 

, c3 





bd, 

cl 

, c3 





aj • 

!i Q 

; 

. 3d , 

f *, 

3.6 J 

29, 

39,3a,OO,a5,b7,7b,d1,2 

d8. 

10. 

. f9, 

. 0d, 

■ 20. 

. f 6, 

,b7,c9 

dl, 

cl. 

. 3f, 

c3 





nsee 

flr.BD 

BS00 

«500 

«500 

flsaa 

«500 

«300 

«300 

R30B 

«300 

«300 

«300 

«500 

«300 

«300 

fl—00 

«300 

«500 

«500 

«500 00 

«501 

«501 3E«F 
«303 01F3F3 
«506 ED79 
«509 97 
«503 3200R3 
«30C C9 
A50D 

HS0D 3«£1«C 
flsiu Fees 
«512 2003 
B51-» C31fl«5 
R51 7 CF 
R519 33RR 
RS1R C5 
«51 E D3 
R51C ES 
R51D 21R4HC 
R520 06FF 
RSZZ ES 
RS22 CS 
«524 CD7CB5 
«527 DC89B3 
«5ZR DC67R5 
«5ZD CI 
RS2E El 
«5ZF 2914 
«531 DC6BR3 
H534 2*03 
«536 DC6F«3 
«339 2810 


20 


ORG 

».*300 

30 

1N1T 

EQU 

«.*501 

40 

C0MP1 

EQU 

4*50(3 

50 

EDIT 

EOU 

4*517 

60 

1CHRR 

EQU 

f.*31a 

70 

sz 

EQU 

4*536 

30 

RUIECK 

EOU 

4*543 

90 

FEHLER 

EQU 

4*546 

100 

ERROR 

EQU 

&*S5c 

1 10 

LFEED 

EQU 

4*36? 

12ß 

CR 

EQU 

&*56b 

120 

PUFFER 

EQU 

4*56f 

140 

IEU3Y 

EQU 

4*3?c 

150 

INPIJT 

EQU 

4*539 

160 

cnriP2 

EQU 

4*592 

170 

ÜCHRR 

EQU 

4*5*» 

190 

DWR1T 

EQU 

e,*5b4 

190 

SEND 

EQU 

L*3c£ 

200 

QEUSY 

EQU 

i*5c© 

210 

ISET 

EQU 

&*Sdc 

220 

STELLE 

DE 

0 





240 

1NIT 

LD 

*,4X10101111 Port * * Ausgabe. Port b * Eingabe 

250 


LD 

bc.4f?f3 Steuerregister 

260 


OUT 

VC), * 

270 


SUE 

* 

230 


LD 

< St» 11«) * 

290 


RET 


300 




310 

CDMPl 

LD 

*.C4*c21) K*n»lnupir»r in flkku laden 

320 


CF 

43 Kin*lMM>«r - 9 ? 

330 


Jß 

nz.edit <9 dann spring» ins Betriebssystem 

340 


jp 

ich*r 

350 

EDIT 

RST 

»-Qa 

360 


DW 

4**98 tscreen »dit <Betriebssystem) 

370 

1CHRR 

PUSH 

bc 

330 


PUSH 

d© 

390 


PUSH 

hl 

400 


LD 

hl . 4*c*4 St*rtadre*s» Puffer 

410 


LD 

b 4ff ,Z**hl*r fuer Puffer 

420 

S1 

PUSH 

hl St*rt*dr«ss* r»tt»n 

430 


PUSH 

bc :Z*»hl»r r»tt*n 

440 


CALL 

ibusy Eins>*bB9»r*et bereit? 

450 


CflLL 

c,input wenn j*, dann -eichen hol»n 

460 


CALL 

C lfe«d LF ? 

470 


POP 

bc 

430 


PDF 

hl 

43G 


JR 

z.rueck ;Ru»cksprun9 wenn LF 

500 


CflLL 

c. er CR 7 

510 


JR 

z »2 CR nicht abspeichern 

520 


CALL 

c,puff»r Zeichen in Puffer ab legen 

530 


JR 

z,fehler spring», wenn Puffer voll 


R53B CD09EE 

540 

SZ 

CflLL 

4bD03 Zeichen von Tastatur holen 

R33E F6FC 

350 


CP 

4fc ;Ere*k ? 

R540 2903 

560 


JR 

z,ru»ck 

R34Z C32ZH3 

370 


JP 

il 

R343 3600 

590 

RUECK 

LD 

<hl 5,5.00 letzt»* Z»lch»n * fl 

R347 £1 

390 


POP 

hl 

«343 Dl 

600 


POP 

de 

«349 Cl 

610 


POP 

bc 

RS4R C9 

6Z0 


RET 

Rueck*prung 

fl54B E3 

630 

FEHLER 

PUSH 

hl 

RS4C Z13CR3 

640 


LD 

hl «rror 

«34F 7E 

630 

S3 

LD 

a <hl > 

R33B 23 

660 


INC 

hl 

«331 B7 

670 


OR 

* 

«532 C4SRBB 

690 


CflLL 

nz.abbS* Fehl*rb«z»ichng. *u*9»ben 

«333 20F9 

690 


JR 

nz,*3 ,bis Zeichen » Q 

«337 El 

700 


POP 

hl 

«338 37 

710 


SCF 


«339 C34SH3 

720 


JP 

rueck 

flSSC 07 

730 

ERROR 

DE 

40? 

«35D 20 

740 


DB 

420 

«53E 4P 

730 


DB 

44f 

«35F 76 

760 


DB 

476 

«360 63 

770 


DB 

465 

«361 72 

790 


DB 

672 * Overflow" 

«362 66 

730 


DB 

466 

«363 6C 

000 


DB 

46c 

«364 6F 

910 


DB 

&6f 

«563 77 

820 


DE 

477 

«566 00 

930 


OB 

400 

«36? FE0H 

940 

LFEED 

CP 

40* LF? 

«369 37 

930 


SCF 

c*rra-l 

«36« C9 

960 


RET 


«56S FE0D 

970 

CR 

CP 

6Bd :CR? 

«36D 37 

990 


SCF 

carry*1 

«36E C9 

990 


RET 


«S6F 77 

300 

PUFFER 

: LD 

<hO,a Z«ich«n in Puff#r lad#n 

«370 CS 

910 


PUSH 

bc 

«371 D3 

920 


PUSH 

d® 

«572 E5 

930 


PUSH 

hl 

«573 CD3DBB 

940 


CflLL 

s,bb?d 

«376 Ei 

950 


POP 

hl 

«377 Dl 

960 


POP 

d* 

RS79 Cl 

970 


POP 

bc 

«379 Z3 

990 


INC 

hl n**ch*ta fldr**s© 

«17« 03 

990 


DEC 

b 7*»hl«r ui« ein* erniedrigen 

«S7B C9 

1000 


RET 


«37C CS 

1010 

IBUSY 

PUSH 

bc 

«570 01FZF9 

1020 


LD 

Dc,4f3f2 Port c adressieren 

«380 ED79 

1030 


IN 

*.<c) Port c «lnlesen 

«592 1F 

1040 


RR« 


«533 IF 

1050 


RR« 

Port C, Bit 1 ln* Carry I IBF-St9r, 
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RS m ulFiro 
«SO E079 

ci 

«30 3? 

«91 CO 

«32 03 
«33 E3 
«X *F 
«33 2fi74fl£ 
«90 22 
«39 7E 
«3R El 
«38 FEA3 
«SO 2930 
«9f FEi«. 
«Ftl 2933 
«FI3 :«oo« 
«f*6 87 
«« 78 
u. CI 
m-m . 2.u: 
««» CF 
«RC F297 
« ME CS 
«Ff C084« 
«82 CI 
«83 C9 
«14 01 . -. 4)0 
«87 Ci* 6« 
«l'H COCE« 
«80 3F 
«8E 08 
«8F 10F3 


1 100 
1110 
1120 
I 120 
1 140 
1110 

1160 CCH1P2 
1170 
1 ICO 
1 130 
1200 
1210 
1220 
1220 
1240 
1230 
1260 
1270 
1230 
1230 
1200 
1310 
1320 
1230 

1340 CCHRR 
1730 
1 360 
1370 

1200 OUfilT 
1330 

1400 24 

1410 
1420 
1420 


FUSH 

bc 

R5C1 00 

1440 

LD 

bc Port fc idresswrtn 

R*C2 20F6 

14SQ 

im 

a <c> Port b ainUaan 

R3C4 B? 

146U 

POP 

bc 

flSCS C9 

1470 

3CF 

Carry-Fli« » l 

«C6 CS 

1430 

RET 


fl?C7 OlFÜF 

1430 

1500 




PUCH 

de 

R5CC CI 

1510 

PUSH 

hl 

RSCD C9 

1~2G 

LO 

« a 

fl“LE c: 

1 = ?U 

LD 

M < fca*34 i R'Jrossa dei al 6u«l lau Statem*nt* 

«r.F o- 

1-40 

me 

M 

«00 SP 

I5“Ü 

LO 

a <MJ Token de* Aktuellen Stat^Meits 

«01 01F2F9 

1-iZO 

POP 

M 

«04 ED73 

lf?0 

CP 

a ,a3 Input? 

«06 17 

1*5Q 

JR 

X / l«t 


1550 

cp 

Lat Lln#T 

RS09 01 

1600 


X 1 i« t 

R503 CI 

1610 

LD 

a (atalhl 

P5DR -F 

1620 


a 

RSDB C3 

1630 


a. * 


1640 

POP 

dv 

RSDO 01 

16-ß 


x oct ar 







ow 






«E3 

1690 


POP 

PET 

LO 

CRLL 

CRLL 

CCF 

RET 

ojri: 


bc .10032 2 a«M«r 

*«iid 2«ich»n an Port a b«r*it*t4llir 
obuiu :U«b*rtra9uvi9 geluivs-an 

c uvnn ja dann Ru«cksprur? (Carry - 


8D3R 
BD3R 
K _i 
2028 
8D2E 
E02E 
8031 
BD31 


C30O« 

C332R3 

C3CERS 

C3C6R3 


1700 

1710 

1720 

1730 

1740 

1750 

1760 

1778 


OEC c 
JR m, «4 

OR a kam« flusgab* rc^alich • Carry * 0) 

RET Fluickaprun-? 

PU H bc 

LD b; f.f3f0 Port a idras.ursn 
OUT ic* « Oat*r. an Fort • anU an 
POP bc 
RET 

PUCH t: 

PUCH d* 

LO * a 

LO tc . -I 9f2 Port c adrmitrtfl 
III a <c’i Port c »inltjan 

RUR fit 7 von Port c in Carry < ÜEF-Si9''«l > 

LO 1.4 
POP d* 

POP bc 

CCF 

RET 

LO a.» 

POP da 

CRLL tbbS* fluaoab« auf lauf*nd*s Bild*cHirMfen«ter 

3CF Carry ■* 1 fu#r <=i4 i urcauM flusgaba 

RET 

-. pr an, «H.ri. 

ORC 'ibdOa 

JP corne.1 

opc vc-aat 
JP com2 
ORC lbd2« 

JP obusy 
QRG 'ibdSl 
JP s and 


MICA 


Das CAD-Programm für Ihren Computer 



- maßstabsgerechtes Erstellen von Zeichnungen und Layouts 
in Zoll und mm 

- Symbolbibliotheken 

- Symbole vergrößern, verkleinern, drehen, spiegeln 

- Ausgabe ouf Drucker und Plotter 

- 6 Zeichenebenen und ... und ... und 

Lieferbar für: CPC664. CPC6128, I8M-PC und kompatible, MC-Terml 
Apple II. CI 28. PMS88, Atari 260/520 ST. Joyce 
Mica wird für 198.- DM geliefert, für Atari 260/520 5T 298,- OM 
V-Scheck oder zuzüglich 5.- DM bei Nachname 

Alleinvertrieb; E Sc C Ruppert Zellmeier Dompfaffstr. 127a 
8520 Erlangen Tel. 09131/440303 
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Mit diesem Artikel wollen wir einmal die 
wichtigsten Neuerungen des CPC 6128 
gegenüber seinen Vorgängern 
heraussteilen. 

Vor allem die folgenden drei Themen wollen wir hier besonders ansprechen: 

— neue Möglichkeiten mit CP/M 
plus 

— Die Erweiterung des Dr. LOGO 

— Anwendung des zusätzlichen Speicherplatzes 



CP/M plus 


Es soll nicht Aufgabe des Artikels 
sein, das gesamte CP/M plus des 
CPC 6128 zu erklären. Es sind da¬ 
her nur einige der neuen Dienst¬ 
programme ausschnittweise be¬ 
schrieben. Insgesamt sind über 
dreißig neue .COM-Dateien auf 
den mitgelieferten Disketten (im 
Vergleich mit CPC 464). Allerdings 
fehlen dafür auch ein paar von den 
alten. Folgende Dienstprogramme 
sind neu oder erweitert und sollen 
an dieser Stelle erklärt werden: 
SETDEF.COM / DEVICE.COM / 
LANGUAGE.COM / SHOW.COM / 
DATE.COM / SET.COM / 
SETLST.COM 

SETDEF [PAGE] bewirkt das An¬ 
halten der Bildschirmausgabe, 
wenn der Bildschirm voll ist. Das 
bedeutet, daß jedesmal, wenn der 
Bildschirm beschrieben ist, in der 
letzten Zeile die Meldung „Press 
RETURN to contmue“ erscheint 
und der Computer erst nach dem 
Drücken der Return- oder Enterta¬ 
ste mit der Ausgabe fortfährt. Dies 
ist zum Beispiel sehr nützlich, wenn 
man mit den HELP-Texten arbeitet. 
Außerdem kann mit SETDEF be¬ 
stimmt werden, auf welchen Dis¬ 
kettenlaufwerken der Computer 
bestimmte zu spezifizierende Files 
zu suchen hat. So kann zum Beispiel 
veranlaßt werden, daß alle .COM- 
Dateien zuerst auf Laufwerk C ge¬ 
sucht werden und danach erst auf 
dem Standardlaufwerk. Dabei kön¬ 
nen bis zu vier Laufwerke ange¬ 
sprochen werden. 

Der Datentransfer zwischen den 
Ein- und Ausgabegeräten kann mit 
DEVICE manipuliert werden. Hier¬ 
mit können z.B. Baudraten einge¬ 
stellt werden. DEVICE CONSOLE 
[COLUMNS= 40] stellt die Bild¬ 


schirmausgabe auf 40 Spalten ein. 

Mit dem Befehl LANGUAGE 
kann einer von acht internationalen 
Zeichensätzen angewählt werden 
LANGUAGE 2 belegt die Klam¬ 
mern mit deutschen Umlauten, den 
Klammeraffen (@) mit dem Paragra¬ 
phenzeichen und die Tilde mit dem 
scharfen S. Der deutsche Zeichen¬ 
satz der meisten Drucker liegt auf 
denselben Zeichen. 

SHOW bewirkt die Anzeige von 
Informationen zu den Disketten¬ 
laufwerken. So können z.B. die An¬ 
zahl der freien Directoryeinträge 
oder andere Speicherkapazitäten 
angezeigt werden. 

Uber dem DATE-Befehl kann ei¬ 
ne implementierte Uhr angespro- 


DATE-Befehl 


chen werden Sie wird mit DATE 
SET eingestellt und zeigt nach Ein¬ 
gabe von DATE C eine laufende 
Uhr mit Datum an. 

SET arbeitet ähnlich wie STAT, 
kann jedoch zusätzlich Files und 
Disketten mit Passwörtern und Da¬ 
tum versehen („stempeln"). Dazu 
muß das Directory der Diskette mit 
INITDIR formatiert werden. Leider 
wird dadurch der Diskettenaus¬ 
tausch zwischen CP/M plus und 
AMSDOS bzw. CP/M • 2.2 er¬ 
schwert. 

Mit SETLST kann ein Drucker ini- 



















tialisiert werden. Zu diesem Zweck 
muß ein File erstellt werden, wel¬ 
ches die nötigen Fluchtsequenzen 
für den Drucker enthält. 

Das war’s also zu den Dienstpro¬ 
grammen. Eine Sache hat mich et¬ 
was geärgert: Das Programm FILE- 
COPY existiert nur noch unter 
CP/M 2.2 auf Seite vier der mitge¬ 
lieferten Disketten. Da dieses Pro¬ 
gramm tatsächlich nur unter CP/M 
2.2 läuft, mußte ich, um einzelne Da¬ 
teien von Diskette auf Diskette zu 
kopieren, erst CP/M 2.2 booten. 
Beim Versuch, die Help-Texte auf 
eine andere Diskette zu kopieren, 
behauptete das Programm gar 
dreist, ich hätte die falsche Ziel- 
Diskette eingelegt, und brach den 
Kopiervorgang ab. 


Einen Lerneffekt hat die Tatsa¬ 
che, daß die Help-Texte in Englisch 
verfaßt sind. Dadurch müssen näm¬ 
lich alle diejenigen, die in dieser 
Sprache nicht so versiert sind, sehr 
viele Fachbegriffe nachschlagen. 

Noch etwas Positives: Durch 
Drücken von [CONTROL] W wird 
die letzte Befehlseingabe wieder¬ 
holt. Bei Tippfehlern braucht man 
nun nicht mehr die gesamte Einga¬ 
be, sondern nur noch die letzte zu 
wiederholen und zu berichtigen. 


Dr. LOGO 


Die neue LOGO-Version des 
CPC 6128 enthält viele Befehle, die 
beim CPC 464 noch nicht vertreten 
waren. Diese sind vernünftigerwei¬ 
se im Handbuch mit einem Stern¬ 
chen versehen, so daß man als Be¬ 


sitzer eines CPC 6128 wenigstens 
die Möglichkeit besitzt, kompatible 
Programme zu erstellen. 

Die Diskettenoperationen sind 
durch sechs Befehle erweitert wor¬ 
den. Leider befindet sich unter die¬ 
sen noch immer keiner zum Lö¬ 
schen von Dateien. Denn wenn 
man an einem Programm arbeitet, 
ist es sinnvoll, dieses zwischen¬ 
durch mehrmals abzuspeichern. 
Dies kann man bei Dr. LOGO je¬ 
doch nicht unter gleichem Namen 
tun, da man dadurch eine Fehler¬ 
meldung des Systems erhält. Mit 
dem Befehl CHANGEF ist es je¬ 
doch nun möglich, Filenamen in 
der Directory zu ändern. 

Nachteilig war bei der bisheri¬ 
gen LOGO-Version, daß man nicht 


alle Prozeduren gleichzeitig editie¬ 
ren konnte, wie dies bei einem 
Pascal-Programm z.B. selbstver¬ 
ständlich ist. Man mußte immer erst 
die Änderung einer Prozedur ab- 


ED ALL 


brechen und konnte dann erst die 
nächste aufrufen. Mit dem Befehl 
EDALL ist dieses nun behoben. 
Der Befehl TRACE erlaubt das Ver¬ 
folgen einer Prozedur während ih¬ 
rer Ausführung. Mit MEMBERP 
und WHERE kann wie bei INSTR 
im BASIC ein String auf seinen In¬ 
halt hin überprüft werden. PIECE 
und ITEM sind mit MID$ vergleich¬ 
bar. Mit COPYON und COPYOFF 
kann die Ausgabe auf einen ange¬ 
schlossenen Drucker ein- bzw. aus¬ 
geschaltet werden. Auch das An¬ 


sprechen des Ports ist nun mit .IN 
und OUT realisiert worden. 

Die Arithmetik ist um den Arcus¬ 
tangens und eine REMAINDER- 
Funktion, welche den ganzzahligen 
Rest emer Division ergibt, erwei¬ 
tert worden. 

Interessant ist noch der Befehl 
TOWARDS, mit dem die Schildkrö¬ 
te auf einen bestimmten Koordina¬ 
tenpunkt ausgerichtet werden 
kann. 

Dies sind nur einige Beispiele 
aus einer Palette von insgesamt et¬ 
wa 45 neuen Befehlen. Die in mei¬ 
nen Augen wesentlichste Verbes¬ 
serung stellt jedoch die größere 
Anzahl der zur Verfügung stehen¬ 
den Knoten dar. 3761 Knoten stehen 
nun nach dem Aufruf von L0G03 
zur Verfügung; beim CPC 464 wa¬ 
ren es nur 2105. Aber der hatte ja 
auch nur 64K. 


Drei Bilder pro 
Sekunde 


Der CPC 6128 besitzt die Mög¬ 
lichkeit, fünf Bildschirmseiten 
gleichzeitig im Arbeitsspeicher 
unterzubringen. Mit dem Listing 
,,GRAFDEMO" habe ich einmal 
versucht, mit welcher Geschwin¬ 
digkeit sich diese Bilder austau- 
schen lassen. Das Programm lädt 
fünf Bilder von Diskette und 
tauscht diese dann gegeneinan¬ 
der aus. Sobald das Programm 
unterbrochen wird, erfahren wir, 
wieviele Bilder pro Sekunde ange¬ 
zeigt wurden. Nachdem ich dieses 
Programm einige Minuten laufen 
ließ, erhielt ich einen Wert von ca. 3 
Bildern/sec. . 

Ich habe einige Spiele auf dem 
6128 ausprobiert und festgestellt, 
daß viele Programme ohne beson¬ 
dere Anpassung vom CPC 464 auf 
den CPC 6128 übertragen werden 
können. Nur bei einigen maschi- 


Kompatibel? 


nensprachorientierten Program¬ 
men kam es zu Fehlern. Aber die 
meisten Softwarehäuser werden 
wohl auch angepaßte Versionen ih¬ 
rer Programme für den CPC 6128 
anbieten. Der SOFTWARE-TEAM- 
BASIC-Compiler läuft leider auf 
dem neuen nicht. An einer Anpas¬ 
sung wird jedoch gearbeitet, (tb) 


nup 

aus dem Mikrocomputer* Magazin 



Unser Bild zeigt die Schnittstellen des CPC 6128. 
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KALENDER 

von FRANK THIELEN 

Kalender des Jahres 1986 


JANUAR 

MO DI MI DO FR SA SO 

1 2 3 4 5 

6 7 8 9 10 11 12 

13 14 15 16 17 IS 19 

20 21 22 23 24 25 26 

27 28 29 30 31 


MAI 

MO DI MI DO FR SA SO 

12 3 4 

5 6 7 8 9 10 11 

12 13 14 15 16 17 IS 

19 20 21 22 23 24 25 

26 27 28 29 30 31 


JULI 

MO DI MI DO FR SA SO 

1 2 3 4 5 6 

7 8 9 10 11 12 13 

14 15 16 17 18 19 20 

21 22 23 24 25 26 27 

28 29 30 31 




OKTOBER 





NOVEMBER 



MO 

DI 

MI 

DO 

FR 

SA 

so 

MO 

DI 

MI 

DO 

FR 

SA 

SO 



1 

'!? 

3 

4 

5 






1 

2 

6 

7 

8 

9 

10 

11 

12 


4 

5 

6 

7 

8 

9 

13 

14 

15 

1 ö 

17 

18 

19 

10 

1 1 

12 

13 

14 

15 

16 

20 

21 

22 

'“VT 

24 

ncr 

26 

17 

18 

19 

20 

21 

22 

23 

27 

28 

29 

3 0 

31 



24 

25 

26 

'*h T 
XL / 

28 

29 

30 




AUGUS 

T 



MO 

DI 

MI 

Dü 

FR 

SA 

SO 





1 

n 

4b 

3 

4 

5 

6 

7 

P 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

'T'O 

23 

24 

25 

26 

27 

28 

29 

30 

31 


APRIL 


MO 

DI 

MI 

DO 

FR 

SA 

SO 


1 

o 

Jm 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 








FEBRUAR 



MO 

DI 

MI 

DO 

FR 

SA 

SO 






1 

2 

■-< 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 


23 

24 

25 

26 

27 

28 




MAERZ 


MO 

DI 

MI 

DO 

FR 

SA 

SO 






1 

9 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

xL xL 


24 

CT 

xLU 


27 

28 

29 

30 

31 









JUNI 



MO 

DI 

MI 

DO 

FR 

SA 

SO 







1 

4fil 


4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 








SEPTEMBER 



MO 

DI 

MI 

DO 

FR 

SA 

SO 

1 

2 


4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

nn 

4L. JE. 

23 

24 

25 

26 

27 

28 

29 

30 








DEZEMBER 



MO 

DI 

MI 

DO 

FR 

SA 

SO 

1 

2 


4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

4hftrffc 

23 

24 

25 

26 

27 

28 

29 

30 

31 






Mit dem Programm Kalender 
kann man sich für die Jahre zwi¬ 
schen 1582 und 2500 die zwölf Mo¬ 
nate auf Drucker oder Bildschirm 


ausdrucken lassen. Schaltjahre 
werden dabei selbstverständlich 
automatisch berücksichtigt. Nach 
dem Start des Programms und der 


Eingabe des gewünschten Jahres 
erhält man einen Ausdruck wie in 
dem obenstehenden Beispiel für 
das Jahr 1986. 
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10 MODE 2:PEN 1:PAPER O:INK 1,0:INK 0,13:B0RDER 
13:CLS 

15 PRINT TAB(20):"Kalender by FTCP":PRINT:PRINT 
20 INPUT "Geben Sie bitte das gewuenschte Jahr 
ein: ",jahr:IF jahr<1583 OR jahr>2499 THEN P 
RINT:PRINT "Bitte anderes Jahr waehlen!":PRI 
NT:GOTO 20 

30 nt=429+INT(365.25*(jahr—1)) 

40 IF nt<69409B THEN nt=nt+l 

50 IF nt<657574 THEN nt=nt+l 

60 IF nt<621050 THEN nt=nt+l 

70 IF nt<584526 THEN nt=nt+l 

80 IF nt>=767148 THEN nt=nt-l 

90 IF nt>=803672 THEN nt=nt-l 

100 IF nt>=840196 THEN nt=nt-l 

110 w=(nt—2)/7:w=ROUND(7*(w—INT(w)>,0) 

120 IF jahr MOD 400=0 THEN schaltjahr=-l:RETURN 
130 IF jahr MOD 100=0 THEN schaltjahr=0:RETURN 
140 schaltjahr=jahr MOD 4=0 
lOOO PRINT:PRINT "Drucker oder Bildschirm (D/B) ? 

1010 a*=UPPER$(INKEY$):IF a$="" THEN 1010 ELSE IF 
INSTRC'DB" ,a*)=0 THEN 1010 
1020 IF a$="D" THEN PRINT:PRINT "Bitte Geduld, es 
wird gedrucktdv=8 ELSE CLS:dv=0 
1030 PRINT ttdv,TAB(24);"Kalender des Jahres";jahr 
1040 t(l)=w:IF w=0 THEN t<1)=7 
1050 FOR i=1 TO 4 
1060 PRINT ttdv:PRINT ttdv 
1070 ON i GOSUB 1110,1120,1130,1140 
10B0 t(2)=(t(l)+a(1)) MOD 7:IF t(2)=0 THEN t(2) 
=7 

1090 t <3> = <t(2) +a(2)) MOD 7:IF t(3)=0 THEN t(3) 
=7 

1100 GOTO 1150 

1110 a(1)=31:a(2)=28—schaltjahr:a(3)=31:PRINT tt 

dv," JANUAR FEBRUAR 

MAERZ":RETURN 


1120 a(1)=30:a(2)=31:a(3)=30:PRINT ttdv," 

APRIL MAI 

JUNI":RETURN 

1130 a(1)=31:a(2)=31:a(3)=30:PRINT ttdv," 

JULI AUGUST 

SEPTEMBER":RETURN 

1140 a(l)=31:a<2)=30:a(3)=31:PRINT ttdv," O 

KTOBER NOVEMBER 

DEZEMBER":RETURN 
1150 PRINT #dv 

1160 PRINT #dv,“MO DI MI DO FR SA SO MO DI 

MI DO FR SA SO MO DI MI DO FR SA SO" 

1170 PRINT ttdv 
1180 FOR j=l TO 3 
1190 n(j > =1 

1200 FOR k=t(j> TO 7 

1210 PRINT ttdv,TAB < j*25+k*3—27>;US ING "tttt"; 

n (j); 

1220 n<j)=n(j)+l 

1230 NEXT k 

1240 NEXT j 
1250 PRINT ttdv 
1260 FOR j=l TO 3 
1270 FOR k=l TO 7 

1280 IF n(j)<=a(j) THEN PRINT ttdv,TAB(j*25+ 

k*3—27);USING "tt#";n(j>; 

1290 n(j)=n(j)+l 

1300 NEXT k 

1310 NEXT j 
1320 PRINT ttdv 

1330 IF n (1) <=a (1) OR n(2X=a(2> DR n(3X=a(3) 
THEN 1260 

1340 t(l)=(t(3)+a(3)) MOD 7:IF t(1)=0 THEN t(l) 

=7 

1350 NEXT i 
1360 END 










da 

m. •] ahr 


1987 










JANUAR 





FEBRUAR 





MAERZ 




MD 

DI 

MI 

DD 

FR 

SA 

SD 

MO 

DI 

HI 

DO 

FR 

SA 

80 

MO 

Dl 

MI 

DO 

FR 

SA 

SO 




1 

2 

3 

4 







1 







1 

3 

6 

7 

8 

9 

10 

11 

2 

3 

4 

3 

6 

7 

8 

2 

3 

4 

3 

6 

7 

8 

12 

13 

14 

13 

16 

17 

18 

9 

10 

u 

12 

13 

14 

13 

9 

10 

1 1 

12 

13 

14 

13 

19 

20 

21 

22 

23 

24 

23 

16 

17 

18 

19 

20 

21 

22 

16 

17 

18 

19 

20 

21 

22 

26 

27 

28 

29 

30 

31 


23 

24 

23 

26 

27 

28 


23 

24 

23 

26 

27 

28 

29 















30 

31 








APRIL 





MAI 






JUNI 



MO 

DI 

MI 

DO 

FR 

SA 

SD 

MO 

DI 

MI 

DO 

FR 

SA 

SO 

MO 

DI 

MI 

DO 

FR 

SA 

SO 




2 

3 

4 

5 





1 

2 

3 

1 

2 

3 

4 

3 

6 

7 

6 

7 

8 

9 

10 

11 

12 

4 

3 

6 

7 

8 

9 

10 

B 

9 

10 

11 

12 

13 

14 

13 

14 

13 

16 

17 

18 

19 

11 

12 

13 

14 

13 

16 

17 

13 

16 

17 

18 

19 

20 

21 

! 20 

21 

22 

23 

24 

23 

26 

1B 

19 

20 

21 

22 

23 

24 

22 

23 

24 

23 

26 

27 

28 

1 27 

28 

29 

30 




23 

26 

27 

28 

29 

30 

31 

29 

30 








JULI 





AUGUST 




SEPTEMBER 



MO 

DI 

MI 

DG 

FR 

SA 

SO 

MO 

DI 

Ml 

DO 

FR 

SA 

SO 

MO 

DI 

Ml 

DO 

FR 

SA 

SO 



1 

2 

3 

4 

3 






l 

2 


1 

2 

3 

4 

3 

6 




9 

10 

1 1 

12 

3 

4 

3 

6 

7 

B 

9 

7 

B 

9 

10 

11 

12 

13 

13 

14 

13 

16 

17 

18 

19 

10 

11 

12 

13 

14 

13 

16 

14 

13 

16 

17 

18 

19 

20 

20 

21 

22 

23 

24 

23 

26 

17 

18 

19 

20 

21 

22 

23 

21 

22 

23 

24 

23 

26 

27 

27 

28 

29 

30 

31 



24 

23 

26 

27 

28 

29 

30 

2B 

29 

30 












31 
















OKTOBER 





NOVEMBER 





DEZEMBER 



MD 

Dl 

MI 

DO 

FR 

9A 

SO 

MD 

DI 

MI 

DO 

FR 

SA 

SO 

MO 

DI 

MI 

DO 

FR 

SA 

SO 




1 

2 

3 

4 







1 


1 

2 

3 

4 

3 

6 




8 

9 

10 

11 

2 

3 

4 

3 

6 

7 

8 

7 

B 

9 

10 

1 1 

12 

13 



14 

13 

16 

17 

18 

9 

10 

1 1 

12 

13 

14 

13 

14 

13 

16 

17 

18 

19 

20 

19 

20 

21 

22 

23 

24 

23 

16 

17 

18 

19 

20 

21 

22 

21 

22 

23 

24 

23 

26 

27 

76 

27 

28 

29 

30 

31 


23 

SO 

24 

23 

26 

27 

28 

29 

28 

29 

30 

31 





Kalander da« Jahr«« 2222 


JANUAR 

MD DI MI DO FR SA SD 

I 2 3 4 S 6 

7 B 9 10 II 12 13 
14 13 16 17 1B 19 20 

21 22 23 24 23 26 27 

28 29 30 31 

APRIL 

MD DI MI DD FR SA SO 

1 2 3 4 3 6 7 

B 9 10 11 12 13 14 

13 16 17 IB 19 20 21 

22 23 24 23 26 27 2B 

29 30 

JULI 

MO DI MI DD FR SA SO 

1 2 3 4 3 6 7' 

B 9 10 11 12 13 14 

13 16 17 18 19 20 21 

22 23 24 23 26 27 2B 

29 30 31 


OKTOBER 

MO DI MI 00 FR SA SO 

1 2 3 4 3 6 

7 B 9 IO 11 12 13 
14 13 16 17 18 19 20 
21 22 23 24 25 26 27 
28 29 30 31 


MO 

DI 

MI 

DO 

FR 

SA 

SO 

MO 

DI 

MI 

DO 

FR 

SA 

SO 





1 

2 

3 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

4 

3 

6 

7 

8 

9 

10 

11 

12 

13 

14 

13 

16 

17 

11 

12 

13 

14 

13 

16 

17 

18 

19 

20 

21 

22 

23 

24 

18 

19 

20 

21 

22 

23 

24 

23 

26 

27 

2B 




23 

26 

27 

28 

29 

30 

31 



MAI 






JUNI 



MO 

DI 

MI 

DO 

FR 

SA 

SO 

MO 

DI 

Ml 

DO 

FR 

SA 

SO 



1 

2 

3 

4 

3 






1 

2 

6 

7 

8 

9 

10 

11 

12 

3 

4 

3 

6 

7 

8 

9 

13 

14 

13 

16 

17 

18 

19 

10 

11 

12 

13 

14 

13 

16 

20 

21 

22 

23 

24 

23 

26 

17 

18 

19 

20 

21 

22 

23 

27 

28 

29 

30 

31 



24 

23 

26 

27 

28 

29 

30 


MO 

01 

Ml 

DO 

FR 

SA 

SO 

MO 

DI 

MI 

DO 

FR 

SA 

90 




1 

2 

3 

4 







1 

3 

6 

7 

B 

9 

10 

11 

2 

3 

4 

3 

6 

7 

a 

12 

13 

14 

13 

16 

17 

18 

9 

10 

1 1 

12 

13 

14 

13 

19 

20 

21 

22 

23 

24 

23 

16 

17 

18 

19 

20 

21 

22 

26 

27 

28 

29 

30 

31 


23 

24 

23 

26 

27 

28 

29 








30 









NOVEMBER 





DEZEMBER 



MO 

Dl 

Ml 

DO 

FR 

SA 

SO 

MO 

DI 

MI 

DO 

FR 

SA 

80 





l 

2 

3 







1 

4 

3 

6 

7 

8 

9 

10 

2 

3 

4 

3 

6 

7 

8 

11 

12 

13 

14 

13 

16 

17 

9 

10 

11 

12 

13 

14 

13 

ia 

19 

20 

21 

22 

23 

24 

16 

17 

IB 

19 

20 

21 

22 

23 

26 

27 

28 

29 

30 


23 

24 

23 

26 

27 

28 

29 








30 

31 



















Utility 


Schneider spezial 


63 





& 


Oben 

16 Farben im Bild 
und gleichzeitig 


80 


Die Schneider-Computer können 
bekanntlich auf 3 verschiedene 
Arten Grafik und Text darstellen: 
16 Farben und eine so geringe Auf¬ 
lösung, daß nur noch 20 Zei¬ 
chen/Zeile dar gestellt werden 
ODER ein Kompromiß aus 40 Zei¬ 
chen/Zeile bei 4 Farben pro Bild- 
schirmpunkt ODER die höchste, 
aber einfarbige Auflösung von 80 
Zeichen/Zeile. Wäre es nicht 
schön, wenn man z.B. im oberen 
Bildschirmdrittel ein 16farbiges 
Bild UND im unteren Drittel den 
Begleittext mit 80 Zeichen/Zeile 
darstellen könnte? Sicher haben 
Sie es schon vermutet: Weil es so 
schön ist, werden wir es jetzt auch 
machen. 


Unser Problem ist es also, ver¬ 
schiedene MODEs gleichzeitig auf 
dem Bildschirm darzustellen. Prin¬ 
zipiell gibt es zwei Lösungen dafür: 
Wir könnten einen Computer, z.B. 
einen Atari 130 kaufen, dessen Vi¬ 
deoprozessor das schon von Haus 
aus kann, oder wir müßten uns ei¬ 
nes Software-Tricks bedienen. Da 
die erste Möglichkeit aus prakti¬ 
schen Erwägungen ausscheidet, 
beschäftigen wir uns besser mit 


unten 

Zeichen Tex 







der notwendigen Software. Bei je¬ 
dem Interrupt wurde das Farb- 
Änder-Programm aufgerufen, wo¬ 
durch 6 farbige Balken untereinan¬ 
der entstanden. Damals störte es 
uns, daß die Balken genau an der 
gleichen Stelle stehenblieben, oh¬ 
ne zu flackern oder sich zu bewe¬ 
gen, aber heute ist das genau das, 
was wir brauchen. 


Interrupts sind die 
Lösung 


Angenommen, wir wollten die 
obere Hälfte des Bildes in Mode 0 
(16 Farben) darstellen und die un¬ 
tere Hälfte in Mode 2 (80 Zeichen). 
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Wir brauchen dazu lediglich Mode 
0 einzuschalten, zu warten, bis der 
Elektronenstrahl das halbe Bild ge¬ 
zeichnet hat, und dann Mode 2 ein¬ 
zuschalten. So weit, so gut. Aber wir 
wollen ja nicht nur das tun, sondern 
zwischendurch sollen ja auch noch 
unsere normalen Programme wei¬ 
terlaufen, also rufen wir das Pro¬ 
gramm über Interrupts auf. Das hat 
noch einen weiteren Vorteü: 300 In¬ 
terrupts (Unterbrechungen) wer¬ 
den pro Sekunde erzeugt, 50 mal 
pro Sekunde wird ein Bild gezeich¬ 
net. Wir haben also 6 Unterbre¬ 
chungen in einem Bild, können 
theoretisch also 6 mal den Bild¬ 
schirmmodus ändern. Vorausge¬ 
setzt, daß der erste Interrupt zeit¬ 
lich mit dem Beginn eines neuen 
Bildes übereinstimmt, brauchen 
wir also nur bei jedem 3. Interrupt 
nach dem Bildanfang auf Mode 2 
und synchron mit dem Bildanfang 
auf Mode 0 zu schalten, und schon 
sind wir da, wo wir hin wollten. 

Gesagt, getan. Listing 1 ist das Er¬ 
gebnis unserer bisherigen Überle¬ 
gungen. Es wird auf die übliche 
Weise ein Interruptblock einge¬ 
bunden, so daß ROUTI dreihun- 
dertmal pro Sekunde aufgerufen 
wird. (Zeichen 70/80. Im Listing 
entspricht + bdl9 &bdl9, ist also 
hexadezimal. Das Zeichen + wird 
vom Schneider-Devpac-Assembler 
verwendet; wer einen anderen As¬ 
sembler hat, muß das Symbol ent¬ 
sprechend ändern.) Bei jedem Auf¬ 
ruf von ROUTI wird mitgezählt, der 


Listing 1 


wievielte Aufruf es war. Handelt es 
sich um Nr. 1, wird Mode 0 einge¬ 
schaltet, bei Nr. 3 wird Mode 2 ein¬ 
geschaltet, bei Nr, 6 wird der Zäh¬ 
ler wieder zurückgesetzt, weü ja 6 
Interrupts pro Bild auftreten. Aller¬ 
dings wird der Zähler abwärts, also 
nicht von 0-5 gezählt. Zeilen 240-380 
erledigen das und wählen den ent¬ 
sprechenden Mode an. Sehr wich¬ 
tig sind aber die Zeilen vor und 
nach dem Einbinden in die Inter¬ 
ruptkette: Da die obere Bildschirm¬ 
hälfte in Mode 0 dargestellt werden 
soll, schalten wir erst einmal auf 
diesen um und warten dann auf 
den Strahlrücklauf (40-60). Erst 
dann wird KL-ADD-FAST-TICKER 
aufgerufen. Anschließend werden 
die Interrupts gesperrt, da wir jetzt 
noch einmal warten müssen, und 
zwar länger als die Zeitperiode, 
die zwischen zwei Interrupts 


ftOOO 

10 

org laOOO 

»LISTING Nr.2 

AOOÖ 

20 

ent * 

;Startadresse fcaOQO 

AOOO 210AAO 

30 init: 

id hl,free4 

;4 freie Bytes zur Verwaltung 

A003 OIOEAO 

40 

Id bc,tabl 

iSprungadressentabe11e 

A006 CDD1BC 

50 

call ibcdl 

{RSX'es einbinden 

A009 C9 

60 

ret 

»das *ar es 

AOOA 

70 free4; 

defs 4 


AOOE 16A0 

80 tabl: 

defw ntab 


A010 C31CA0 

90 

jp init2 

jHodeswitch einschalten 

AQ13 C335A0 

100 

jP a us 

1” ausschalten 

A016 4FCE 

110 ntab: 

defb '0',*N"+I80 

{Tabelle der Naaen 

AQ18 4F46C6 

120 

defb *0VFVF’ + *80 


A01B 00 

130 

defb 0 

{Ende der Tabelle 


140 ; 



A01C 3E00 

150 init2: 

ld a,0 

»Kode 0 

A01E CD1CBD 

160 

call tbdlc 

»einschalten 

A021 CD19BD 

170 

call «bdl9 

INC.NAIT.FLYBACK 

A024 2141A0 

180 

ld hl,block 

ibinde in Interruptkette ein 

A027 CDE3BC 

190 

call ibce3 

JKL.ADD.FAST.TICKER 

A02A F3 

200 

di 

{keine Stoerung bitte... 

AQ2B 3E06 

210 

ld a,6 

{Zaehler auf Startwert 

A02D 3269A0 

220 

ld (auf),a 

{(wird heruntergezaehlt) 

AQ30 CD19BD 

230 

call tbdl9 

{warte auf Strahlruecklauf 

AQ33 FB 

240 

ei 

{ist syncronisiert 

A034 C9 

250 

ret 



260 ; 



A035 2141A0 

270 aus: 

ld hl,block 

{Block wieder aus... 

A038 CDE6BC 

2B0 

call Ibce6 

{...Interruptkette herausnehien 

A03B 3E02 

290 

ld a,2 


A03D CDICBD 

300 

call Ibdlc 

{Mode 2 einschalten 

A040 C9 

310 

ret 



320 S 



A041 0000 

330 block; 

def w 0 

{Interruptblack 

A043 0000 

340 

def m 0 


A045 00 

350 

defb 0 


A046 Bl 

360 

defb »81 


A047 4CA0 

370 

def* routi 


A049 00 

3B0 

defb 0 


A04A 0000 

390 

def* 0 



400 ; 



A04C 3A69A0 

410 routi; 

ld a,(auf) 

{Das eigentliche Prograe« 

A04F 3D 

420 

dec a 

{erniedrige Zaehler und... 

A050 3269A0 

430 

ld (auf),a 


A053 FE00 

440 

cp 0 

{...ueberpruefe welcher Interrupt 

A055 2B0B 

450 

jr z,aodO 

{bei Nuaier 0 ->Hode 0 

A057 FE02 

460 

cp 2 


A059 C0 

470 

ret nz 

{auch nicht Nr.2 

A05A 3E02 

480 

ld a,2 

{sonst... 

A05C C31CBD 

490 

jp »bdlc 

{Mode 2! 

A05F 3E06 

500 iod0; 

ld a, 6 

{Zaehler wieder auf Anfang 

A06I 3269A0 

510 

ld (auf),a 


A064 3EOO 

520 

ld a,0 


A066 C31CBD 

530 

jp ibdlc 

{Mode 0 einschalten 

A069 06 

540 auf; 

defb 6 

{Zaehlvariable 

A06A 

550 

end 
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liegt. Nun werden der Zähler auf 
seinen Startwert gesetzt und die In¬ 
terrupts — und somit der Aufruf un¬ 
seres Programms — wieder einge¬ 
schaltet, sobald ein neuer Frame- 
Fly aufgetreten ist (90-140). Diese 
komplizierte Prozedur ist notwen¬ 
dig, um eine möglichst gute Syn¬ 
chronisation bzgl. des Umschalt¬ 
programms und der tatsächlichen 
Darstellung auf dem Bildschirm zu 
erreichen. Sonst könnte es leicht 
passieren, daß unser Mode-O-Be- 
reich irgendwo in der Bildmitte 
,.hängt" und die Bereiche darunter 
und darüber in Mode 2 angezeigt 
werden. Wenn Sie nun Listing 1 lau¬ 
fen lassen, werden Sie allerdings 
feststellen, daß wir keine exakte 
Teilung des Bildschirms in der Mit¬ 
te haben, sondern daß unten 7 Zei¬ 
len Text und oben 18 Zeilen Grafik 
angezeigt werden. Das liegt aber 
nicht etwa daran, daß nun beim fal¬ 
schen Interrupt umgeschaltet wur¬ 
de, sondern daran, daß ja nicht nur 
die eigentliche Bildfläche, sondern 
die gesamte BILDSCHIRMfläche, 
also auch der Border vom Elektro¬ 
nenstrahl mitgezeichnet wird, so 
daß die Interrupts nicht synchron 
zur Bildschirmposition 0,0, sondern 
zur oberen Bildschirmecke liegen. 
Um also tatsächlich in der Bildmitte 
umzuschalten, muß die Nummer in 
Zeile 290 entsprechend erniedrigt 
werden. 


Andere 

Modes/Farben... 


Listing 1 ist natürlich noch nicht 
das Nonplusultra. Ärgerlich ist z.B., 
daß Mode 0 noch etwas in die erste 
Textzeile hineinreicht. Man kann 
hier noch nachregulieren, obwohl 
der nächste Interrupt erst ein gan¬ 
zes Stück tiefer kommt: Nach Set¬ 
zen des neuen Modes noch ein biß¬ 
chen mit einer Verzögerungs¬ 
schleife a'la LD B,x:DJNZ $ warten. 
50 wäre hier ein guter Wert für x, 
aber die genaue Zahl zu ermitteln, 
überlasse ich Ihnen (denken Sie 
aber daran, daß dadurch andere 
Programme, die normal ablaufen, 
verzögert werden können). 

Kein Problem ist es auch, andere 
Modes einzuschalten (einfach die 
Zahlen in Zeile 40,310 und 350 än¬ 
dern) oder noch mehr Modes auf 
dem Bildschirm zu mischen. Eben¬ 
falls eine interessante Idee wäre 


Hisoft BENA3.1 Assembler. Page 1. 
Pass 1 errors: 00 


AOOO 


10 

org 

laOOO 

«LISTING NIM 

AOQO 


20 

ent 

* 

ihier Pr-Start 



30 J 




AOOO 

3E00 

40 init: 

ld 

a,0 

;lnitialisieren:erst Mode 0 

A002 

CD1CBD 

50 

call 

tbdlc 

leinschalten 

A005 

CD19BD 

60 

call !bdl9 

iMarte auf Strahiruecklauf 

A008 

2119A0 

70 

ld 

hl,block 

ibinde in Interruptkette ein 

AOOß 

CDE3BC 

80 

call 

*bce3 

IKL.ADD.FAST.TICKER 

AOOE 

F3 

90 

di 


Idauert laenger als 1/300 Sek 

AOOF 

3E06 

100 

ld 

a,6 

;Zaehler auf Startwert 

A011 

324 IAO 

110 

ld 

(count),a 

1 (nird heruntergezaehlt) 

A014 

CB19BD 

120 

call tbd 19 

iNarte auf Strahiruecklauf 

A017 

FB 

130 

ei 



A01B 

C9 

140 

ret 





150 i 




A0I9 

OOOO 

160 block: 

defw 0 

(Block ait Daten fuer 

A01B 

0000 

170 

defti 0 

ilnterrupthandler 

A01D 

00 

180 

defb 

0 


A01E 

81 

190 

defb *81 


A01F 

24A0 

200 

defw routi 


AQ21 

00 

210 

defb 0 


A022 

0000 

220 

defw 0 




230 ; 




A024 

3A41AÖ 

240 routi: 

ld 

a, (count) 

»Das eigentliche Prograa* 

A027 

30 

250 

dec 

a 

(erniedrige Zaehler und... 

A028 

3241AO 

260 

ld 

(count),a 


A02B 

FEOO 

270 

cp 

0 

i...ueberpruefe welcher Interrupt 

A02D 

2808 

280 

K 

z,aod0 

»bei Nuaaer 0 ->flode 0 

A02F 

FE02 

290 

cp 

2 


A031 

CO 

300 

ret 

m 

iauch nicht Nr.2 

A032 

3E02 

310 

ld 

a.2 

»sonst... 

A034 

C31CBD 

320 

JP 

tbdlc 

iHode 2! 

A037 

3E06 

330 aodO: 

ld 

a,6 

»Zaehler wieder auf Anfang 

A039 

324 IAO 

340 

ld 

(count),a 


A03C 

3E00 

350 

ld 

a,0 


A03E 

C31C8D 

360 

JP 

tbdlc 

iKode 0 einschalten 

A041 

06 

370 count: 

defb 6 

»Zaehlvariable 

A042 


380 

end 




Pass 2 errors: 00 

Table used: 71 froa 211 
Executes: 40960 

1 REM LISTING Nr.3 

2 DATA 21, OA, AO, Ol, OE, AO, CD, Dl, BC, C9, OO, OO, OO, OO, 1 
6,AO,C3,IC,AO,C3,35,AO,4F,CE,4F,46,C6 

3 DATA OO,3E,OO,CD,IC,BD,CD,19,BD,21,41,AO,CD,E3,B 

C, F3,3E,06,32,69,AO,CD,19,BD,FB,C9 

4 DATA 21,41,AO,CD,E6,BC,3E,02,CD,IC,BD,C9,00,00,0 
O,OO,OO,Bl,4C,AO,00,00,00,3A,69,AO,3D 

5 DATA 32,69,AO,FE,00,28,08,FE,02,CO,3E,02,C3,IC,B 

D, 3E,06,32,69,AO,3E,00,C3,1C,BD,06 

6 MEMORY &9FFF:MODE 2 

7 RESTORE 2:F0R x=&AOOO TO &A069:READ wS:POKE x, VA 
L(:NEXT:CALL &A000 

8 PRINT"öON - schaltet Madesplit ein":PRINT"ÖOFF - 
schaltet Modesplit aus" 
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es, gleichzeitig mit dem Umschal¬ 
ten des Modus auch die angezeig¬ 
ten Farben zu ändern, so daß man 
in Mode 0 andere Farben verwen¬ 
den könnte als in Mode 1, die aber 
doch gleichzeitig auf dem Bild¬ 
schirm erscheinen. Es gibt hier 
noch viele weitere Möglichkeiten, 
und ich bin sicher, Sie haben genug 
Phantasie, um das Programm 
selbst weiterzuentwickeln. 


Neue BÄSIC-Befehle 


Damit wären wir bei Listing 2. 
Hiermit ist es möglich, die „gesplit¬ 
tete“ Darstellung mit den Befehlen 
ION ein- und mit IOFF auszuschal¬ 
ten. INIT erfüllt hier eine ganz an¬ 
dere Funktion als in Listing 1: Es 
werden lediglich die beiden Be¬ 
fehle ON und OFF generiert, und 
erst INIT2 bindet dann ROUTI in 
die Interruptkette ein. Bei einem 
OFF-Kommando wird dann AUS 
aufgerufen und der Interruptblock 
wieder entfernt, so daß wieder al- 
1 les einheitlich in einem Mode dar- 
i gestellt wird. 


Das letzte Programm, Nr. 3, ist eine 
absolute Ausnahme: Hier haben 
wir auch mal einen „Happen“ für 
reine BASIC-Programmierer: Es 
tut im Prinzip dasselbe wie Nr. 2, 
aber man braucht keinen Assemb¬ 
ler, um es zu nutzen. Also: Listing 3 
an den Anfang des eigenen Pro¬ 
grammes, und man kann mit ION 
den Modesplit ein- und mit IOFF 
wieder ausschalten. 


Sicherlich fällt jedem beim Her¬ 
umexperimentieren mit dem 
Modesplit schon nach sehr kurzer 
Zeit auf, daß die Schrift recht merk¬ 
würdig aussieht, wenn Sie in den 
Mode O-Bereich gerät: Der Grund 
dafür ist klar: Der Zeichen genera- 
tor nimmt natürlich immer noch an, 
daß auf dem Bildschirm Mode 2 
(beim Herumexperimentieren mit 
all unseren Beispiellistings sollte in 
Mode 2 gearbeitet werden) darge¬ 
stellt wird, und so werden nicht die 
richtigen Bitmuster für Mode 0 er¬ 
zeugt. Um das zu verhindern, kann 
man WINDOW +0,1,80,19,25 defi¬ 
nieren oder mit POKE &blc8,0 die 
Schrift an Mode 0 anpassen (an die¬ 
ser Adresse steht der Bildschirm¬ 


modus bei 464. Siehe Vergleich 
zwischen 464 und 664), aber leider 
funktioniert die Grafik deshalb 
trotzdem nicht. Mit einem POKE 
&blc8,0:call &bbba ist es schon 
besser, aber immer noch nicht per¬ 
fekt. Man muß also den Zeichenge¬ 
nerator komplett an Mode 0 anpas¬ 
sen, um oben normal zeichnen zu 
können. Die Lösung dafür werde 
ich nachreichen. Allerdings wird 
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man normalerweise auch direkt 
Mode O-Bilder von Diskette oder 
Tape in den Bildschirm laden und 
so keine Probleme mit dem Zei¬ 
chengenerator bekommen. Man 
sollte Modesplit nach Tape- oder 
Diskettenbenutzung neu einschal¬ 
ten, da bei Tape/Disk-Betrieb die 
Interrupts ausgeschaltet werden 
und die Synchronisation gestört 
wird. TMB 


Der Schneider Tip 

ROM-CALL’s ohne Einspruchbedingungen zum Ausschneiden und Sammeln 
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Die Schneider-Computer sind in 
der Lage, großartige Grafiken zu 
erzeugen, und das BASIC bietet 
auch dementsprechende Befehle 
an. Aber gerade wegen der vielen 
Möglichkeiten sind die entspre¬ 
chenden Befehle auch schwer zu 
verstehen. 

In diesem Kurs werden wir uns 
zunächst einmal mit den Grundla¬ 
gen, also den Grafikbefehlen und 
verschiedenen Möglichkeiten zum 
Zeichnen auf dem Bildschirm, be¬ 
schäftigen. Später wenden wir uns 
dann den Verfahren zu, mit denen 
wir mit eben diesen Grafikbefeh¬ 
len Kreise, Kugeln, 3-dimensionale 
Darstellungen und so weiter erzeu¬ 
gen können. Auch, oder besser: 
gerade Anfänger werden hier auf 
ihre Kosten kommen, umfangrei¬ 
che BASIC-Kenntnisse sind nicht 
notwendig. 



Alles auf dem Bildschirm besteht 
aus kleinen Punkten. Schalten Sie 
ihren Schneider einmal an und se¬ 
hen sich die Schrift ganz genau an 
(nah heran gehen!). Wenn Sie ge¬ 
nau genug hinsehen, werden Sie 
feststellen, daß alle Buchstaben 
aus lauter kleinen Punkten zusam¬ 
mengesetzt sind. Um zu verstehen, 
warum das so ist, muß man etwas 
über die Art wissen, wie der Com¬ 
puter das Bild, das Sie auf dem Mo¬ 
nitor sehen, aufbaut: Stellen Sie 
sich vor, daß noch gar nichts auf 
dem Bildschirm steht, er also kom¬ 
plett schwarz ist. Jetzt schießt von 
hinten gegen die Leuchtfläche der 
sogenannte Elektrodenstrahl, der 


Der 

Grafik-Kurs 

für Einsteiger, Teil I 


die Leuchtfläche zum (logisch...) 
Leuchten bringt. Wenn die aber 
nur oben links in der Ecke leuchten 
würde, hätten wir nicht viel davon. 
Also lassen wir den Strahl blitz¬ 
schnell von links nach rechts, und 
von oben nach unten rasen (genau 
wie beim Lesen). Überall da, wo 
der Strahl auf die Fläche trifft, 
leuchtet sie, und so leuchtet 
schließlich der ganze Bildschirm. 
Da der Strahl so schnell über den 
Bildschirm zum Leuchten gebracht 
wird, haben wir den Eindruck ei¬ 
nes ruhigen, stehenden Bildes. Von 
einem leeren Bildschirm allein hät¬ 
ten wir allerdings nicht viel, und so 
müßten wir den Strahl auch noch 
aus- und einschalten, um nur be¬ 
stimmte Teile zum Leuchten zu 
bringen, eben jene Teile, die dann 
Buchstaben oder andere Symbole 


dieses Prinzips ist notwendig, um 
die Grafikfähigkeiten optimal nut¬ 
zen zu können; (in Wirklichkeit ist 
das Ganze sogar noch etwas kom¬ 
plizierter, da ja auch noch verschie¬ 
dene Farben dargestellt werden 
sollen, aber das braucht uns jetzt 
wirklich nicht zu kümmern). Um zu 
wissen, welche Punkte dargestellt 
werden sollen, schaut der Compu¬ 
ter in einem bestimmten Teil seines 
Speichers nach, und von der Größe 
dieses Teils hängt es ab, wieviele 
Punkte wir auf dem Bildschirm dar¬ 
stellen können. Beim Schneider 
sind es maximal 640x200 = 128000 
Punkte. Eine ganz schöne Menge. 
Je mehr Punkte, um so weniger Far¬ 
ben. Sicher ist Ihnen das Wörtchen 
,,maximal 11 aufgefallen. Werden 
denn evtl, auch weniger Punkte 
dargestellt? So ist es. Denn die An¬ 



Unser Bild zeigt die bekannte Kuchendiagrammdarstellung. 


darstellen sollen. All das ist norma¬ 
lerweise für uns völlig unwichtig, 
da der Computer sich selber dar¬ 
um kümmert, aber die Kenntnis 


zahl der Punkte hängt, wie schon 
gesagt, von der Größe des Spei¬ 
cherteils (ab jetzt,.Grafikspeicher“ 
genannt) ab, in dem steht, welche 
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Punkte gesetzt werden sollen und 
welche nicht. Stellen Sie sich vor, 
daß dieser Teil aus 128 000 Schal¬ 
tern (Bits) besteht (für jeden Punkt 
einen), und wenn der entsprechen¬ 
de Schalter an ist, dann leuchtet 
auch der Punkt. Mit einem einzigen 
Schalter können wir so zwei Farben 
darstellen; Ist der Schalter aus, 
leuchtet der Punkt nicht, oder eben 
in der ersten Farbe. Ist der Schalter 
aber an, dann leuchtet der Punkt, 
und zwar in der anderen Farbe. 
Beim Einschalten wären diese bei¬ 
den Farben zum Beispiel blau, 
wenn der Schalter aus ist und gelb, 
wenn er an ist (gelbe Schrift auf 
blauem Grund). Aber zwei Farben 
sind nicht gerade üppig, vor allem, 
wo doch jedes Computerspiel von 
bunten Explosionen und vielen far¬ 
bigen Einzelheiten lebt. Wie also 
mehr Farben auf den Büdschirm 
bringen? Der Trick dafür ist eben¬ 
so einfach wie genial; Wir nehmen 
zwei Schalter für nur einen Punkt! 


Zwei oder 
vier Farben 


Damit können wir dann den einen 
Punkt in vier verschiedenen Far¬ 
ben darstellen; 1 Farbe; beide 
Schalter aus; 2 Farben; nur Schalter 
1 an; 3 Farben; nur Schalter 2 an; 4 
Farben: beide Schalter an. Leider 
hat dieser geniale Trick auch einen 
Nachteil: Wir können nur noch die 
Hälfte der Punkte darstellen, da 
wir ja ZWEI Schalter pro Punkt 
brauchen. Diese Methode kann na¬ 
türlich noch beliebig weiter ausge¬ 
baut werden: Mit vier Schaltern 
können wir schon einen einzigen 
Punkt in 16 verschiedenen Farben 
darstellen, aber wir haben auch 
nur noch ein Viertel der ursprüngli¬ 
chen Punkte zur Verfügung. Sie 
werden sich nun sicher fragen, wie 
wir den ganzen Bildschirm noch 
mit Punkten vollkriegen wollen, 
wenn wir nur noch (z.B.) ein Viertel 
der ursprünglichen Anzahl haben. 
Dazu gäbe es prinzipiell zwei Mög¬ 
lichkeiten: Wir könnten nur noch 
ein Viertel des ursprünglichen Bil¬ 
des darstellen, also das Bild klei¬ 
ner machen, oder die Punkte vier¬ 
mal größer. Die zweite Möglichkeit 
ist wohl sinnvoller, deshalb wird sie 
auch praktiziert; Dadurch, daß die 
Punkte breiter werden, bleibt auch 
das Bild genauso breit wie vorher, 
obwohl nur noch ein Viertel der 
Punkte pro Zeile dargestellt wird. 


Es gibt drei unterschiedliche Bild¬ 
schirmformate. Dieser Zusammen¬ 
hang zwischen der Anzahl der 
Punkte und den möglichen Farben 



ist allerdings nicht nur Theorie, 
sondern genauso wird es in Ihrem 
Computer gemacht! Wir haben die 
Wahl, ob wir 2,4 oder 16 Farben 
gleichzeitig darstellen wollen. Da¬ 
zu gibt es in BASIC den Befehl MO¬ 
DE. Nach MODE muß eine Num¬ 
mer von 0 bis 2 folgen, um anzuge¬ 
ben, welches Bildformat ge¬ 
wünscht ist. Die drei Formate sind: 
MODE 0: Der Bildschirm ist 160 
Punkte breit, jeder Punkt kann in 
einer von 16 verschiedenen Farben 
leuchten. MODE 1: Der Bildschirm 
ist 320 Punkte breit, jeder Punkt 
kann 4 verschiedene Farben ha¬ 
ben. Dieser MODE wird automa¬ 
tisch beim Einschalten des Compu¬ 
ters gewählt. MODE 2: Der Büd¬ 
schirm ist 640 Punkte breit, jeder 
Punkt kann in 2 Farben erscheinen 
(Vordergrund oder Hintergrund). 
In allen MODEs werden 200 Punk¬ 
te untereinander dargestellt (also 
zweihundert Zeilen). Und so kommt 
auch die maximale Anzahl von 
640x200 Punkten zustande, nämlich 
im MODE 2. Probieren Sie es doch 
einmal: MODE 0 ENTER bringt ei¬ 
ne ganz breite Schrift hervor, mit 
MODE 2 ENTER ist sie viel schma¬ 
ler. Die Anzahl der Punkte, die ein 
Buchstabe breit ist, ist bei beiden 
MODES gleich, nur sind die Punkte 
in MODE 0 breiter. Die Höhe der 
Buchstaben ist jedoch immer 
gleich, da ja immer 200 Punkte ver¬ 
tikal dargestellt werden. Es ändert 
sich also nur die Punktbreite, nicht 
die Punkthöhe. 


Die ersten 
Zeichenversuche 

Sie haben die Nase voll von dem 
theoretischen Kram und wollen 
endlich praktisch was machen? 
OK, ok, nicht aufregen, genau das 


hatte ich ja jetzt vor. Mit dem BASIC- 
Befehl PLOT können wir jeden ein¬ 
zelnen Punkt auf dem Bildschirm 
direkt ansprechen, also seine Far¬ 
be bestimmen. Nach PLOT müssen 
mindestens zwei Zahlen kommen 
(durch ein Komma getrennt), die 
angeben, welcher Punkt gemeint 
ist. Die erste Zahl gibt dabei seine 
horizontale Lage an, die zweite Zahl 
seine vertikale Lage, genau wie bei 
einem Koordinatensystem. Eine 
Null bei der horizontalen Lage be¬ 
deutet dabei ganz links, 639 ganz 
rechts. Für die zweite Zahl gilt: 0 ist 
ganz unten, 399 ganz oben. Keine 
Frage, daß Sie jetzt gemerkt haben, 
daß hier etwas nicht stimmt: Die er¬ 
ste Zahl sollte doch eigentlich je 
nach MODE verschieden sein, und 
die zweite sollte doch nur bis 200 
gehen...? Stimmt EIGENTLICH, 
aber da wir jetzt erst etwas Prakti¬ 
sches machen wollten, lassen Sie 
mich die Erklärung auf gleich ver¬ 
schieben. Also weiter: PLOT 
320,200 ENTER müßte eigentlich 


Nur ein Punkt 

einen Punkt genau in die Mitte des 
Büdschirms setzen ... aber es pas¬ 
siert nichts! Nicht aufregen, es hat 
geklappt! Nur haben wir den Punkt 
in der Farbe Null, also Blau, ge¬ 
setzt. Da er aber vorher schon blau 
war, kann man auch weiter nichts 
sehen. Die Farbe des Punktes kann 
man durch eine dritte Zahl bestim¬ 
men. 0 ist dabei die erste, 3 die vier¬ 
te Farbe (oder maximal 1 bei MO¬ 
DE 2 und maximal 15 bei MODE 0). 
Also noch ein Versuch: PLOT 
320.200,1 ENTER und..VIOLA! Es 
hat geklappt. Mit einer starken Le¬ 
serbrille oder einem gewöhnli¬ 
chen Haushaltselektronenmikro¬ 
skop kann man den Punkt ohne wei¬ 
teres sehen. (Wenn keine Farbe an¬ 
gegeben wird, wird die zuletzt 
angegebene Farbe verwendet). 
Probieren Sie es mit verschiede¬ 
nen Zahlen (und in den 3MODES), 
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aber rechnen Sie sich vorher unge¬ 
fähr aus, wo der Punkt erscheinen 
muß, da Sie ihn sonst vielleicht 
nicht finden. Vor allem in MODE 2 
muß man sich da schon ziemlich 
anstrengen. 
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Computer tut nur so, als hätten wir 
640 Punkte!! Das hat nämlich den 
unschätzbaren Vorteil, daß wir 
nicht komplett mit neuen Zahlen 
rechnen müßten, nur weil wir einen 
anderen MODE eingeschaltet ha- 
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pro Punkt! Und nach genau dem¬ 
selben Prinzip geht das auch bei 
den vertikalen Zahlen, nur hat es 
hier einen anderen Grund: Wenn 
wir nur Koordinaten von 0.199 hät¬ 
ten, würde jeder Kreis, den wir auf 
den Bildschirm zeichnen, wie ein 
plattgedrückter Ball aussehen, 
denn das Verhältnis von der tat¬ 
sächlichen Bildschirmbreite zur 
Höhe (in cm) entspricht eben mehr 
640/400 als 640/200! Es ist also nur 
ein Trick, um das Zeichnen zu er¬ 
leichtern. So einfach ist das. 

Sie kennen jetzt zwei Grafikbefeh¬ 
le: MODE und PLOT. Experimen¬ 
tieren Sie etwas damit herum, um 
damit vertraut zu werden. Und da¬ 
mit Sie auch noch etwas zu experi¬ 
mentieren haben, versuchen Sie es 
mal mit dem Befehl DRAW. Dieser 
Punkt ist dann das ENDE der Linie. 
Diese Linie hat die angegebene 
oder die vorherige Farbe (wenn Sie 
keine Farbe angeben). Ersetzen 
Sie doch z.B. das Plot im obrigen 



Ein erstes Programm 





t \ n 

i i ) i 


Das folgende kleine Programm 
soll Ihnen diese Sache noch etwas 
verdeutlichen. Dabei müßten Sie 
wissen, daß der Befehl RND + Zahl 
irgendeine zufällige Zahl zwischen 
0 und der angegebenen Zahl er¬ 
zeugt. PLOT RND*639, RND*399, 
RND*3 setzt also einen Punkt in ir¬ 
gendeiner Farbe irgendwo auf den 
Bildschirm. 

10 INPUT ,,Wieviele Punkte? “,an- 
zahl 

20 For i'l to anzahl 

30 PLOT RND*639, RND*399, 
RND*3 

40 NEXT i: PRINT „Fertigt; an¬ 
zahl; ,.Punkte gesetzt.,, GOTO 10 

Die Koordinaten bleiben in je¬ 
dem MODE gleich. Wenn Sie nun 
wieder etwas aufnahmefähig für ei¬ 
nen neuen Happen Theorie sind, 
wollen wir noch die Frage klären, 
wieso wir immer 639 als größte ho¬ 
rizontale, und, noch merkwürdiger, 
399 als vertikale Zahl haben. Der 


ben. Dazu teilt er die Zahl einfach 
durch 2 oder 4. Deshalb werden 
Sie auch keinen Unterschied se¬ 
hen, wenn Sie in MODE 1 (320 
Punkte horizontal) erst Punkt 0,0 
und dann Punkt 1,0 plotten. Es han¬ 
delt sich nämlich um denselben 
Punkt. Erst bei 2,0 wird der nächste 
Punkt sichtbar. In MODE 0 (160 
Punkte) ist es sogar noch extremer: 
Hier gibt es jeweils 4 Koordinaten 


Programm durch DRÄW . . . An¬ 
schließend werden wir uns mit 
weiteren Grafikbefehlen beschäf¬ 
tigen und einige sehr schöne Bil¬ 
der erstellen. 
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Wir haben herausgefunden, daß 
der Computer das Bild, das er auf 
dem Bildschirm darstellt, aus vie¬ 
len kleinen Punkten zusammen¬ 
setzt. Die Anzahl und somit die Grö¬ 
ße dieser Punkte hängt vom ge¬ 
wählten Bildschirmmodus ab, den 
wir mit MODE bestimmen können. 

Obwohl es verschieden viele 
Punkte in den einzelnen Modes 
sind, tut der Computer so, als hätten 
wir immer 640*400 Punkte, um das 
Programmieren zu erleichtern. Die 
Anzahl der Farben, die wir darstel¬ 
len können, hängt ebenfalls vom 
Mode ab, je weniger Punkte 
dargestellt werden, um so mehr 
Farben können angezeigt werden. 
Soviel zum Theoretischen. Aber 
wir haben auch schon zwei, 
genauer, drei Befehle kennen¬ 
gelernt: MODE, mit dem wir ei¬ 
nen Bildschirmmodus von 0 bis 2 
wählen können, wobei 2 die höch¬ 
ste Auflösung darstellt. PLOT, mit 
dem wir die Farbe jedes einzelnen 
Punktes auf dem Bildschirm be¬ 
stimmen können, und zwar indem 
wir seine x-Koordinate von 0-639, 
seine y-Koordinate von 0-399 und 
die Farbe, in der er erscheinen soll, 
angeben. Die Farbe hängt dabei 
vom gewählten Mode ab, so daß 
wir in Mode 2 nur zwischen 0 und 1, 
in Mode 0 aber schon zwischen 0 
bis 15 auswählen können. 

Dann war da noch der Befehl 
DRAW, der besser „LINE“ heißen 
sollte, denn er zieht eine Linie. Die 
Linie wird dabei vom zuletzt ge- 
PLOTteten Punkt zur angegebe¬ 
nen Position gezogen, d.h., hinter 
DRAW können dieselben Argu¬ 
mente wie hinter PLOT stehen, also 
x,y und Farbe. 


Ein Cursor für die 
Grafik 


Wenn Sie Ihren Schneider, oder 
überhaupt jeden Computer, ein¬ 
schalten, sehen Sie außer den Ein¬ 
schaltmeldungen auch noch den 
CURSOR, der Ihnen sagt, daß der 
Computer auf Ihre Eingabe wartet. 
Der Cursor ist das kleine Quadrat, 
das immer dort steht, wo der näch¬ 
ste Buchstabe erscheinen wird, 
den Sie eintippen. Der Cursor hat 
also die Aufgabe, Ihnen zu zeigen, 
wo Sie sich gerade auf dem Bild¬ 
schirm „befinden“. Unser Schnei¬ 
der hat aber noch einen zweiten 
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Cursor, denn außer diesem TEXT¬ 
CURSOR (der uns hier aber nicht 
weiter interessiert) gibt es auch 
noch einen GRAFIKCURSOR. 
Aber dieser unterscheidet sich in 
einem wichtigen Punkt vom Text¬ 
cursor: Man kann ihn nicht sehen! 
Dafür gibt es zwei Gründe: Zum ei¬ 
nen soll er nicht die Grafik stören, 
aber zum anderen soll er uns auch 
nicht zeigen, wo wir uns befinden, 
sondern nur das Zeichnen erleich¬ 
tern. Der Grafikcursor steht, wenn 
wir ihn sonst nicht bewegen, immer 
auf dem zuletzt gesetzten Punkt (z.B. 
mit PLOT oder bei DRAW auf dem 
letzten Punkt der Lime). Wenn wir 
nun den Befehl PLOT verwenden, 
haben wir mit dem Grafikcursor 
nicht viel zu tun, da wir ihn einfach 
nicht brauchen. Ganz anders sieht 
es aber bei DRAW aus. Erinnern 
Sie sich, daß wir weiter oben ge¬ 
sagt hatten, DRAW würde den an¬ 
gegebenen Punkt mit dem zuletzt 
gezeichneten Punkt verbinden? 
Das stimmt normalerweise, voraus¬ 
gesetzt, wir verändern die Lage 
des Grafikcursors nicht, der dann 
ja auf diesem Punkt steht, ln Wirk¬ 
lichkeit aber verbindet DRAW die 
Position, an der der Grafikcursor 
steht, mit dem angegebenen Punkt. 
Nun stellt sich die Frage: Wie ver¬ 
ändert man diese Position? Ganz 
einfach: Dazu haben wir den Befehl 
MOVE x,y. (Denken Sie daran, daß 
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Sie hier KEINE Farbe angeben 
können). Dieser Befehl setzt den 
Grafikcursor auf die angegebenen 
Koordinaten. Jetzt zeigt sich, ob Sie 
mitgedacht haben: Dann müßten 
Sie jetzt ZWEI Wege kennen, um ei¬ 
ne Linie zwischen dem Anfangs¬ 
punkt xa,ya und dem Endpunkt 
xe,ye zu zeichnen! Überlegen Sie 
mal einen Moment und lesen Sie 
erst weiter, wenn Sie die Lösung ha¬ 
ben -nun, die erste Möglichkeit 

ist, einen Punkt an xa.ya zu setzen 
und dann die Linie zu ziehen: PLOT 
xa,ya:DRAW xe.ye, aber es gibt 
auch noch die Möglichkeit, nur den 
Grafikcursor an den Anfangspunkt 
zu setzen. Dazu brauchen Sie nur 
PLOT durch MOVE zu ersetzen. 


Alles ist relativ 


Bisher haben wir bei allen Gra¬ 
fikbefehlen, also PLOT, DRAW und 
MOVE mit ABSOLUTEN Koordina¬ 
ten arbeiten müssen. Das kann je¬ 
doch im Einzelfall ziemlich unprak¬ 
tisch sein. Nehmen wir einmal an, 
Sie haben ein Programm geschrie¬ 
ben, das ein einfaches Strichlmien- 
Haus auf den Bildschirm zeichnet. 
(Das wäre übrigens eine gute 
Übung für Sie — versuchen Sie es 
doch einmal, wenn Sie etwas Zeit 
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haben). Die Spitze des Dachs liegt 
z.B. auf dem Punkt 320, 200 (in der 
Bildschirmmitte), die Kanten des 
Daches entsprechend tiefer rechts 
und links davon. Eine Weile sind 
Sie mit dem Haus auch ziemlich 
glücklich, aber dann wollen Sie ei¬ 
ne ganze Stadt auf den Bildschirm 
bringen (der Mensch kann doch 
nie genug kriegen!), d.h., Sie dür¬ 
fen sich der freudigen Aufgabe 
hingeben, für jedes einzelne Haus 
die entsprechenden Punkte zu be¬ 
stimmen und zusammen mit den 
entsprechenden Befehlen an Ihr 
ursprüngliches Programm anzu¬ 
hängen. Aber es geht auch einfa¬ 
cher, und wenn Ihnen die Nützlich¬ 
keit des Grafikcursors bisher nicht 
so recht einleuchtete, dann wird Ih¬ 
nen jetzt bestimmt ein Licht aufge¬ 
hen: Von allen Grafikbefehlen gibt 
es nämlich auch RELATIVE Aus¬ 
führungen, bei denen wir nicht di¬ 
rekt die Punkte angeben müssen, 
sondern die Entfernung, in der der 
Punkt von der augenblicklichen 
Position des Grafikcursors liegt. 
Wir können also sagen: ,.Zeichne 
eine Linie von hier (Cursorposition) 
nach dem Punkt, der 40 Punkte 
rechts und 50 Punkte tiefer liegt". 
Wenn wir das ganze Haus auf diese 
Art beschreiben, brauchen wir nur 
den Grafikcursor am Anfang auf ei¬ 
ne andere Start-Position zu setzen, 
um das Haus an einer anderen Stel¬ 
le zu zeichnen. Die Namen der rela¬ 
tiven Befehle bestehen aus dem je¬ 
weiligen alten Namen + einem „R“ 
für Relativ. Also: PLOTR, DRAWR, 
MOVER. Einige Beispiele dazu: 
PLOTR -4,0 zeichnet den neuen 
Punkt 4 Punkte links vom alten 
Punkt (-4, d.h. nach links , nach 
rechts wäre 4Ü), MOVER 4,-8 be¬ 
wegt den Grafikcursor 4 Punkte 
nach rechts und 8 Punkte nach un¬ 
ten, DRAWR 20,30 zeichnet eine Li¬ 
nie nach links oben, der Endpunkt 
liegt 20 Punkte höher und 30 Punkte 
rechts von der alten Grafikcursor¬ 
position. Denken Sie daran, daß al¬ 
le diese Befehle die Position des 
Grafikcursors wieder verändern, 
daß sie also z.B. nach DRAW 20,30 
auf dem Endpunkt der Linie liegt! 


27 Farben 


Wie wir in jedem Werbepro¬ 
spekt für den Schneider nachlesen 
können, hat unser Computer 27 
Farben. Aber selbst in Mode 0 kön- 


10 REM Faecher 
20 MDDE 2 

30 FOR x=0 TO 639 STEP 3 
40 MOVE 320,0 
50 DRAW x,399,1 
60 NEXT 

70 GOTO 70sREM ESC fuer STOP! 


10 REM Diamant 
20 MODE 0 

30 zaehler=0:tinte=l 

40 INK 0,0:BORDER O:INK 1,1:INK 2,2:INK 3,11:INK 4 
,14 

50 FOR x=0 TO 639 
60 MOVE 320,399 

70 DRAW x,200,tinte:DRAW 320,0,tinte 
90 zaehler=zaehler+l:IF zaehler=160 THEN zaehler=0 
:tinte=tinte+l 
100 NEXT 

110 GOTO 110:REM ESC fuer Stop 


IO REM quadrate 
20 MODE O 

30 x=RND*639:y=RND*639 
40 MOVE x,y 
50 tinte=RND*15 
60 GOSUB 70:GOTO 30 

70 DRAWR 25,0,tinte:DRAWR 0,25:DRAWR —25,O:DRAWR O 
,-25:RETURN 


10 MODE 0 

20 tinte=l:xm=0:FOR ym=0 TO 399 STEP 29:GOSUB 70:x 
m=xm+40:tinte=tinte+l:NEXT 
25 INK 0,1 

30 FOR tinte=l TO 15:INK tinte,lsNEXT 

40 FOR tinte=l TO 15:INK tinte,6:F0R verz=l TO 20: 

NEXT verz:INK tinte,lsNEXT tinte 

50 FOR tinte=15 TO 1 STEP -1:INK tinte,6:F0R verz= 
1 TO 20:NEXT verzsINK tinte,lsNEXT tinte 
60 GOTO 40 

70 REM einen Kreis zeichnen 

BO DE6:MOVE 100+xm,ym 

90 FOR Winkel =0 TO 360 STEP 12 

100 x=CQS(winkel)*100+xm 

110 y=SIN(winkel) #TOO+ym 

120 DRAW x,y,tinte:NEXT winkel 

130 RETURN 
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5 REM Weg in die Ferne 

10 MÜDE 1 

11 INK 1,11 

20 x=0:breite-80:FÜR y=0 TO 200 
30 MQVE x,y:DRAW x+breite,y,l 

40 breite=breite-O.4 

41 x=x+2.3 
50 NEXT 

hO FÜR t=l TO 100: PLOT RND*630,RND*400,RND*2+2:NEX 
T 

70 INK 0,0:BORDER 0 

BO INK RND*2+2,RND*27:F0R t=l TO RND*400:NEXT:GOTO 
BO 


der Farben auf dem Bildschirm 
blinken sollen (wenn Sie für irgend¬ 
eine INK oder den BORDER zwei 
Farben angegeben haben): SPEED 
INK dauerl,dauer2 legt die Zeit 
fest, in der eine Farbe jeweils auf 
dem Bildschirm steht. Dauerl ist 
die Zeit für die erste, Dauer2 die 
Zeit für die zweite Farbe (alle Far¬ 
ben richten sich danach, Zeiten für 
einzelne Tinten kann man nicht in¬ 
dividuell festlegen). Normalerwei¬ 
se sind sowohl Dauerl als auch 
Dauer2 = 10. Je kleiner diese Wer¬ 
te werden, umso kürzer ist die je¬ 
weilige Zeit! 


nen wir nur 16 darstellen, von den 2 
in Mode 2 gar nicht erst zu reden. 
Wo sollen da 27 Farben herkom- 
men? Wenn Sie sich daran erin¬ 
nern, wie wir unterschiedliche Far¬ 
ben darstellen (die Sache mit den 2 
und 4 Schaltern), ist schon klar, wie¬ 
so nur maximal 16 Farben GLEICH¬ 
ZEITIG dargestellt werden kön¬ 
nen. Aber unser Computer bietet 
uns die Möglichkeit, diese 16, 4 
oder zwei, je nach Mode, aus einer 
PALETTE von 27 Farben auszuwäh¬ 
len! Wir können also schon 27 Far¬ 
ben darstellen, aber eben nicht al¬ 
le gleichzeitig! Dazu haben wir den 
Befehl INK (Tinte). Je nach Mode 
haben wir 2 bis 16 TINTEN, mit de¬ 
nen wir zeichnen können. Aber 
welche Farbe diese Tinten haben, 
können wir selbst bestimmen. So 
können wir zwei oder mehr Tmten 
auch dieselbe Farbe geben oder 
sogar eine Tinte in zwei Farben 
blinken lassen (jetzt geht der Bezug 
zur Realität doch etwas verloren). 
Das geht ganz einfach so: INK, Tin¬ 
tennummer, Farbe 1, Farbe 2. Wir 


Alle Farben 
Tabelle 1 


brauchen keine zwei Farben anzu¬ 
geben, aber wenn wir es tun, dann 
blinkt alles, was in der entspre¬ 
chenden Tinte gezeichnet wird, ab¬ 
wechselnd in der ersten und zwei¬ 
ten Farbe. Wie groß die Tintennum¬ 
mer ist, hängt vom Mode ab, aber 
die Farben können immer einen 
Wert von 0 bis 27 annehmen. Wel¬ 
che Nummer welche Farbe ergibt, 
können Sie aus Tabelle Nr. 1 able¬ 
sen. Probieren Sie es doch einmal: 
INK 1,3,6 -. Die Buchstaben auf dem 
Bildschirm beginnen zwischen 
dunkel- und hellrot zu blinken, sie 
wurden also in Tinte Nummer 1 ge¬ 


druckt (denn die haben wir ja ge¬ 
ändert). Richtig effektvoll wird es, 
wenn wir jetzt die Farbe des Pa¬ 
piers verändern (das ist Tinte Nr. 0 
!!!) INK 0,6,3 -. Daß wir überhaupt 
noch etwas erkennen können, liegt 
daran, daß die Farben von INK 0 
genau ,,andersherum" blinken als 
die von INK 1. Probieren Sie etwas 
herum! Wenn Sie überhaupt nichts 
mehr erkennen können, hilft CALL 
& BC02 : Dieser Befehl weist allen 
Tinten die Farben zu, die sie nor¬ 
malerweise beim Emschalten ha¬ 
ben. Übrigens können Sie sogar 
die Farbe des Bildschirmrandes 
ändern, der um das eigentliche 
Bild herumliegt und auf dem man 


Call &BC02 


nichts zeichnen oder schreiben 
kann: Mit BORDER farbel,farbe2 
können Sie seine Farben festlegen, 
ABER: Mit INKS haben Sie hier 
nichts am Hut, für den Border müs¬ 
sen Sie die Farben so festlegen, als 
ob er selbst eine INK wäre! Und zu 
guter Letzt können Sie sogar noch 
die Geschwindigkeit festlegen, in 


Die ersten 
Programme 


Vielleicht haben Sie angesichts 
dieser vielen Befehle innerlich auf¬ 
gestöhnt, aber ich kann Sie beruhi¬ 
gen: Sie kennen jetzt so ziemlich al¬ 
le Grafikbefehle (die auch noch 
mal in Tabelle 2 zusammengestellt 
sind), und wir können jetzt endlich 
anfangen zu programmieren. Sie 
finden im folgenden einige Pro¬ 
gramme, die Sie abtippen können. 
Aber damit Ihnen das auch etwas 
nützt, sollten Sie sich VORHER 
überlegen, welche Grafik wohl 
durch das jeweilige Programm er¬ 
zeugt wird und wie das Programm 
funktioniert. Wenn Sie irgendwel¬ 
che Befehle im Programm nicht 
kennen, schlagen Sie diese im 
Handbuch nach! Und denken Sie 
daran: Wenn Sie Programme ein¬ 
fach nur abtippen, schaden Sie 
sich nur selbst, vor allem, da Sie im 
folgenden selbst schon einiges 
programmieren sollen. Also mit¬ 
denken! (Teil 2 ab S. 90.) 


Tabelle 1: Diese Nummern haben die einzelnen Farben: 


O Schwarz 

1 Blau 

2 Hellblau 

3 Rot 

4 Magenta 

5 Heilviolett 

6 Hellrot 

7 Purpur 

S Helles Magenta 
9 Gr ün 

Tabelle 2: Alle bisher 


10 Blaugrün 

11 Himmelblau 

12 Gelb 

13 Weiß 

14 Pastsllblau 

15 Orange 

16 Rosa 

17 Pastel1magenta 
13 Hellgrün 

19 Seegrun 

behandelten Be-fehle: 


20 helles Blaugrün 

21 Limonengrün 

22 Pastell grün 

23 Pastel1 blaugrün 

24 Hellgelb 

25 Pastell gelb 

26 Leuchtendweiß 


-MODE -PI. OTR 
-FLOT -DRAWR 
-DRAW -MOVER 
-MOVE -INK 


-BORDER 
-SPEED INK 
-CALL &BC02 












für Schneider CPC 
- 464 + 6128 - 


170 MODE 1 

180 '** Farben fuer die Border, Ink 0 un 
190 '** sechs moeglichen Balken 
200 ÖMULTICOLOR, 1, 1, 26, 2, 11, 26, 11, 11,3, 1 
210 PRINT TAB(9)"Deraonstrationsprograram" 
220 PRINT TAB(16)“fuer den” 

230 öCHARSIZE,0 ' * elongierte Zeichen 

240 PRINT" GRAPHIC-PROCESSOR" 

250 ÖCHARSIZE '* elongierte Zeichen wie 
260 INK 2,0:INK 3,23 '* "globalen" Inks 
270 ÖGPAPER.O '* Ink des Graf ikhintergri 
280 ’** Huegel 


Die Highlights: 

Fließkommaarithmetik 

Integerarithmetik 

über 60 K frei für Quelltext 

(über 20 K frei bei CPC 464) 

REPEAT UNTIL - Schleifen 


Eigener Editor 
Lesen von ASCII-Dateien 
(bestehende Programme können 
gelesen werden) 


380 '** Knopf auf Fahnenmast 
390 ÖGPEN,2 

400 ÖCIRCLE, 158,355, 12, 5, 200, 160 
410 MOVE 158,355:öPAINT 
420 '** Flagge 

430 MOVE 162,350:DRAWR 20,-50 
440 ÖRECTANGLE,182,304,206,-112 
450 MOVE 182,200:DRAWR -16,-122 
460 '** Schneiderlogo 
470 öGPEN,1 

480 ÖCIRCLE,240, 267, 30, 30, 180,0 
490 ÖCIRCLE,240, 267, 5, 5, 180, 0 


500 öPOLYGON,240,297, 280,297, 280, 272, 240 
510 ÖPOLYGON,240,260, 280, 260, 280, 237, 240 
520 ÖCIRCLE,330, 230, 30, 30, 0, 180 
530 ÖCIRCLE,330,230, 5, 5, 0, 180 
540 ÖPOLYGON,330, 260, 290, 260, 290, 237, 330 
550 ÖPOLYGON,330,225,290, 225,290, 200,330 
560 öGPEN,1 ' rot 

570 MOVE 240,250:öPAINT '* linken Teil d 
580 öGPEN,2 ' schwarz 

590 MOVE 330,220:ÖPAINT ’* rechter Teil 

600 öGPEN,3 ' Pastellblaugruen 

610 MOVE 184,200:ÖPAINT '* Farbe der Fla 


erzeugter Object-Code ist ohne 
Compiler lauffähig 
Stringverarbeitung 
bis 30-fache Geschwindigkeit 
veränderbarer Anfangszeiger 
Object-Files können von BASIC 
aufgerufen werden 
5-pass-Compiler 


r& Sr 
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// 
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Verborgene 
Diskettenkommandos 


Im Disketten-ROM steckt mehr, 
als das Handbuch verrät. Es gibt 
nämlich noch 9 zusätzliche Befeh¬ 
le, die allerdings aus dem BASIC 
nicht nutzbar sind. Aber Assem¬ 
bler-Programmierer können da¬ 
mit sehr interessante Sachen an¬ 
stellen, z.B. relative Dateien auf¬ 
bauen oder ganz neue Disketten¬ 
formate konstruieren. 

Wenn man an den 464 eine Dis¬ 
kettenstation anschließt, bekommt 
man auch die notwendige Software 
in einem ROM dazu, dieselbe Soft¬ 
ware, die auch der 664 verwendet. 
Diese Diskettensoftware steckt in 
einem sogenannten Background- 
ROM Nach dem Einschalten unter¬ 
suchen alle Schneider-Computer, 
oder besser: deren Betriebssy¬ 
stem, ob zusätzliche ROMs an den 
Computer angeschlossen sind. 
Handelt es sich um ein Vorder¬ 
grund-ROM, (das erste Byte im 
ROM kennzeichnet, um welchen 
Typ es sich handelt), wird ihm die 
Kontrolle übergeben Das ist zum 
Beispiel bei BASIC der Fall. 
Background-ROM wird lediglich 
die Kontrolle zum Initialisieren ih¬ 
res benötigten RAM-Speichers 
übergeben, und es wird erwartet, 
daß sie danach wieder die Kontrol¬ 
le ans Betriebssystem übergeben. 
Der Aufbau jedes ROMs entspricht 
in etwa dem der hinlänglich be¬ 
kannten RSX-Kommandos, die man 
aus BASIC mit dem SHIFT- 
Klammeraffen aufrufen kann, und 
so besteht auch die Möglichkeit, 
ROM-Routinen so aufzurufen (ver¬ 
suchen Sie einmal '.BASIC). Bei¬ 
spiele hierfür sind alle zusätzlichen 
Disc-Kommandos wie !DIR. Soweit, 
so gut. Bis jetzt war alles nur 
Wiederholung'. Interessant wird 
es aber, wenn man sich den Anfang 
des Disc-ROMs ansieht: Dort ste¬ 
hen nämlich mehr Sprünge, als im 
Handbuch Disc-Befehle beschrie¬ 
ben werden. Logische Folgerung: 
Es muß noch mehr Disc-Komman- 
dos geben! 



Low-Level-Befehle ... 


Auf Adresse C072 stehen die nor 
malen Befehlsnamen, wie man sie 
auch erwartet (bis auf den Befehl 
CPM-ROM, den man aus BASIC 
auch nicht aufrufen kann), aber 
dann ... dann folgen 9 Zahlen von 
#81 bis #89. Da das Ende jedes Be¬ 
fehls durch ein gesetztes Bit 7 im 
Namen gekennzeichnet ist, handelt 
es sich um die Befehle 1,2,3... 9, die 
jeweils ein Zeichen lang sind. Da 
die Zahlen 1 ... 9 aber keine ASC1I- 
Zeichen sind, kann man sie aus BA¬ 
SIC auch nicht aufrufen (ebenso 
wie Namen, die Leerzeichen ent¬ 
halten). Die nächste Frage, die wir 
uns nun stellen, lautet natürlich: 
Was tun sie? 


Nun, nach langer Forschungsar¬ 
beit ist das in Tabelle 1 wiederge¬ 
gebene (hoffentlich richtige) Er¬ 
gebnis herausgekommen. Wie 
man sieht, handelt es sich aus¬ 
schließlich um Low-Level-Befehle 
wie Sektor — lesen / schreiben / 
formatieren etc. Dadurch wird es 
möglich, eigene Anwenderpro¬ 
gramme mit solchen Routinen wie 
> Disketten formatieren< auszu¬ 
statten und so besonders anwen- 
derfreundlich zu machen. Man 
kann aber auch solche Scherze, 
wie z.B. eine Diskette in mehreren 
Formaten formatieren etc., damit 
treiben und so seine Programme 
schützen. Mit genug Phantasie tun 
sich hier ungeahnte Möglichkeiten 
auf. Beschäftigen wir uns nun mit 
den Befehlen im einzelnen (Listing 
1 zeigt Ihnen, wie man die Komman¬ 
dos aus einem Assemblerpro¬ 
gramm heraus aufrufen muß), aber 
denken Sie beim Herumprobieren 
daran, daß ein Write (oder Formaß- 
Sektor mit irgendwelchen Non¬ 
sense-Daten Ihrer Lieblings-Dis¬ 
kette vielleicht nicht so gut be¬ 
kommt! 


Die Kommandos im 
einzelnen 

#81 dient nur dazu, die Disc- 
Meldungen ein- oder auszuschal- 


TabelIe 1: 


#81 

Discmeldüngen ein/aus 

#82 

Discparameter festsetzen 

#83 

Format festsetzen 

#84 

Sektor lesen 

#85 

Sektor schreiben 

#86 

Spur formatieren 

#87 

Kopf positionieren 

#88 

Laufwerk Nr (ft) einschal 

#89 

Leseversuch-Anzahl festsi 
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10 

20 

30 

; Listing 1 


AÖÖO 


org taOÖG 




40 

s 




50 

! ROfICAL ruft die Disc-Koaaandos 

auf: 



60 

5 Nuaner des gewuersschten Koaaandos ins 



70 

; B-Register(! 




80 

5 




90 

1 


AÖOO 

E5 

100 roiscal: push hl 


AÖÖ1 

C5 

110 

push bc 


A0Ü2 

D5 

120 

push de 


A0Ü3 

211EAÖ 

130 

ld hl,zwl 

;Nauen... 

A006 

70 

140 

ld (hl),b 

>... ab 1 egen und 

AÖG7 

CDD4BC 

150 

call #bcd4 

lAdresse enitteln 

AÖÖA 

3Ö0E 

160 

jr nc,ready2 

»FehlerDzurueck 

AÖÖC 

221FA0 

170 

ld (zw2),hl 

»Adresse->zw2 

AÖGF 

2121AO 

180 

ld H1 ,zn3 

;und deren Rosselect 

AÖ12 

71 

190 

ld (hl),c 

»nach zw3 

A013 

Dl 

200 

pop de 


A014 

CI 

210 

pop bc 

* 

A015 

El 

220 

pop hl 

lalten Wert von HL holen 

AÖ16 

DF 

230 

rst 118 

;Far-Adress aufrufen 

AÖI7 

1FA0 

240 

defw z*2 


AQ19 

C9 

250 

ready: ret 


A01A 

Dl 

260 

ready2: pop de 


A01B 

CI 

270 

pop bc 


A01C 

El 

280 

pop hl 


AÖ1D 

C9 

290 

ret 


A01E 

00 

300 

zmI: nop 

jenthaelt IByte Naue 

A01F 

oooo 

310 zn 2: defw ü 

$ PI atz fuer Adresse 

AÖ21 

00 

320 

:w3: nop 

JPlatz fuer ros-Ausnahl 

A022 


330 

end 



ben die Wartedauer vor dem Ab¬ 
schalten des Motors an. Wenn die¬ 
ser groß ist, kann der Diskettenzu¬ 
griff evtl, beschleunigt werden, da 
der Motor bei kleineren Pausen 
nicht jedesmal ausgeht. Anschlie¬ 
ßend folgen noch Werte, die inter¬ 
ne Controllerzeiten bestimmen. Es 
sollten folgende Werte folgen (in 
dezimal): 175, 15, 12, 7, 64. Die Ta¬ 
belle steht übrigens an Adresse 
#be44 

#83 legt das Format fest, mit dem 


IBM-Format 


gearbeitet werden soll. Es muß in A 
übergeben werden und muß lau¬ 
ten: #0: IBM-Format, #40:CPM- 
Format, #CO:AMSDOS(BA- 

SIC/Daten-Format). 

#84 liest einen Sektor, ist damit 
wohl einer der interessanteren Be¬ 
fehle. Die Anwendung ist ganz ein¬ 
fach: Laufwerk ms E-Register (0 
oder 1), Sektor nach C (es sind 9 
Sektoren auf einem Track, also ei¬ 
ne Nummer von 1-9 ABER ACH¬ 
TUNG: Die bei #83 angegebenen 
Werte müssen dazu addiert wer¬ 
den, also hat der erste Sektor auf ei¬ 
ner CP/M-Diskette die Nummer 
#41) und natürlich der Track 0-39 ins 
D-Register. Nun noch HL mit der 
Adresse laden, wo die 512 Bytes hm 
sollen und dann aufrufen (s. Listing 
1 ). 

#85 schreibt einen Sektor auf Dis¬ 
kette, ansonsten alle Daten wie bei 
#84 (HL enthält die Adresse, an die 
512 Bytes gehen). 


ten. Ein POKE an der richtigen 
Speichersteile (#be 78) ist hier ein¬ 
facher. A muß mit dem gewünsch¬ 
ten Wert geladen werden, #FF= 
aus, ansonsten ein. Beim Rück¬ 
sprung liefert die Routine den alten 
Wert in L. 

#82 erlaubt es, die Laufwerkdaten 
festzulegen. Der Anfang der Tabel¬ 
le, in der diese stehen, muß 


Laufwerkdaten 


im HL-Register übergeben wer¬ 
den. Die Tabelle setzt sich folgen¬ 
dermaßen zusammen: 2 Bytes, für 
Wartezeit vor dem ersten Zugriff 
nach Einschalten des Motors. 50 
entspricht dabei einer Sekunde. 
Dann folgen wieder 2 Bytes, sie ge- 




10 ; Listing 2 




20 ; liest 

alle Sektoren einer 

Diskette und zeigt Inhalt an 



30 ! 



9DFE 


40 

org ta00ö-514 

(Platz fuer Buffer 

9DFE 


50 buf: 

defs 514 

»Platz fuer Daten 

AOOÖ 


60 

ent i 

jStartadresse hier 

AÖÖÖ 

0600 

70 

ld b,0 

»von Track 0 bis 39 

A0Ö2 

0E41 

80 

ld c,i41 

»Track 1 fuer CPU (!!) Disk 

AÖÜ4 

C5 

90 11: 

push bc 


A005 

1EÖÖ 

100 

ld e,0 

JLaufwerk A 

AÜÜ7 

50 

110 

ld d,b 

»TRacknuaaer nach D 

A0Ö8 

21FE9D 

120 

ld hl,buf 

»Buffer 

AGÖB 

0684 

130 

ld b,*84 

»Read Sektor 

A00D 

CD34A0 

140 

call roacal 

»ausfuehren 

A010 

21FE9D 

150 

ld hl,buf 

»Daten nun ausgeben 

AÜ13 

010002 

160 

ld bc,512 

»512 Bytes 

AO 16 

E5 

170 12: 

push hl 


A017 

C5 

1 BO 

push bc 
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fiOlB 

7E 

190 

ld 

a,(hl) 

;Zeichen holen und 

A019 

CD5DBB 

200 

call !bb5d 

;anzeigen 

A01C 

CI 

210 

pop 

bc 


A01D 

El 

220 

P°P 

hl 


AQ1E 

23 

230 

inc 

hl 


A01F 

OB 

240 

dec 

bc 

;und weiter,bis alle 512. 

A020 

78 

250 

ld 

a,b 


AÜ21 

Bl 

260 

or 

c 


A022 

20F2 

270 

j r 

nz,12 


A024 

CI 

2B0 

pop 

bc 

»Track und Sektor 

A025 

OC 

290 

inc 

c 

jnaechsten Sektor 

AQ26 

79 

300 

ld 

a,c 

jist es Nuaier 10? 

A027 

FE4A 

310 

cp 

#4a 

»wenn nein,->lesen 

A029 

3BD9 

320 

j r 

c,ll 


AÖ2B 

ÖE41 

330 

ld 

c, #41 

;Sektor l,Track=Track+l 

A02D 

04 

340 

inc 

b 


A02E 

78 

350 

ld 

a,b 

;Track=40 

A02F 

FE2B 

360 

cp 

40 

;ja,fertig 

A031 

CS 

370 

ret 

z 


AQ32 

1BD0 

380 

j r 

11 

;sonst an 2 eigen 



390 ; 




A034 

E5 

400 raical: push hl 


A035 

C5 

410 

push bc 


A036 

D5 

420 

push de 




430 ; 






440 ; 

«EITER: Siehe LISTING 1 ' 




450 ; 




AQ37 


460 

end 




Sektor schreiben 


#86 formatiert einen der 40 
Tracks (Spuren) auf der Diskette, al¬ 
so 9 Sektoren. Track nach D, 
E = Laufwerknummer, C = das ent¬ 
sprechende Sektoroffset (siehe 
#83) plus 1 (also #41 für CP/M- 
Format), HL muß auf einem Daten¬ 
block folgende Formate zeigen. 1 
Byte Tracknummer wie in D, 0, Sek¬ 
tornummer mit Offset, Sektorgrö¬ 
ßen in 128 Byte, also 2. Und das für 
alle 9 Sektoren! 


Listing 2 


#87 bewegt den Kopf auf die an¬ 
gegebene Spur: Laufwerk ms E- 
Register, Track ms D-Register. 

#88 schaltet Laufwerk mit Nr. in A 
ein und gibt Inhalt von + be4c zu¬ 
rück 9 

#89 setzt die Nummer der Lese¬ 
versuche fest. Die Nummer muß in 
A stehen und ist standardmäßig 10. 

Nun, der Rest ist Ihre Sache 
was Sie mit diesen neuen Befehlen 
anfangen. Auf jeden Falkviel Spaß. 
TMB 


Pass 2 errors: 00 

Table used: 54 froe 211 
Executes: 40960 


mm 

Listschutz ade! 


Ein mit SAVE „NAME", P abge¬ 
speichertes Programm läßt sich 
nicht mehr ohne weiteres listen 
Hat man versäumt, eine unge¬ 
schützte Kopie herzustellen, so ist 
das sehr ärgerlich. Mit folgendem 
kleinen Programm läßt sich jedoch 
der Listschutz beheben: 


von BEATE LANG 

Dieses Programm muß vor dem 
geschützten Programm geladen 
und gestartet werden. Danach 
kann das geschützte Programm z.B 
mit LOAD ,,NAME“ geladen und 
wie jedes andere Programm geli¬ 
stet werden 

Ob ein Programm geschützt ist 


oder nicht, wird allem von der Spei¬ 
cherstelle &AE45 bestimmt. 

Bei jedem READY-Durchlauf 
wird unter anderem der Inhalt die 
ser Speicherstelle geprüft. Ist er 
Null, so handelt es sich um ein un 
geschütztes Programm, sonst ist es 
geschützt, und alle Variablen sowie 
das Programm selbst werden ge 
löscht. 

Obiges Programm nutzt die Tat 
sache, daß vor Ablauf der READY 
Routine zur RAM-Adresse &AC01 
gesprungen wird, wo normalerwei 
se nur ein RET-Befehl steht Hier 
wird nun ein Sprung zu einer Routi 
ne eingetragen, die in die Spei 
cherstelle &AE45 eine Null ( = un¬ 
geschützt) lädt. Diese Routine steht 
ab Adresse &a600 im Speicher 


10 

FÜR i=3,Fl600 

TG &RS04 

20 

READ 3. : F'ÜKE 

i , a:HEXT 

30 

FÜR i=&flC01 

TQ &AC03 

40 

READ 3.: PO KE 

i,a:HEXT 

50 

DflTfi 

2, S.45, , S=c3 

60 

DHTfl &c3,&0 

0.. 
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DIRLIST 


CPH 

i—i 


0 

cölsw: 


DEI 


0 

Diffi 


AS 


l 

mmmm 


BAS CPC 


ör 


utfoss devpB 


0 

drckpB. 


BAS 


? 

ft 


IHU 


ö 

i—i 


AMSD0b.COM ASC-DüHP .BAS ASSERbLT 


BIN CRAl 


0 

S 


0 

dirdB: 


BAS 


GENAOIN 


HARDcft 


BAS C0L0UOIN 


BAS DAS) 




.BAS 


dispBas 


HARDcft 


t I <■ ■> / J0¥(B) 

zun auswaehlen 

'ENTER' / FEUER 
zun starten 

'L' zun loeschen 

'SPACE': NEU 


Der neue Superrechner, der Me¬ 
ga Atari, war einer der Renner des 
Jahres 1985. 

Woher kommt das? Nur weil er 
einen riesigen Speicher hat? Weil 
er einen sehr schnellen Prozessor 
hat? Oder liegt es an seinem ex¬ 
trem günstigen Preis? Nun, diese 
Gründe spielen sicher auch eine 
sehr wichtige Rolle, aber einen 
Faktor darf man nicht unterschät¬ 
zen: Die Faszination, die von GEM, 
dem Betriebssystem des Ataris, 
ausgeht. Dadurch ist es erstmals 
möglich, daß auch Leute, die abso¬ 
lut keine Ahnung von Computern 
haben, damit arbeiten können. Mit 
Dirlist haben wir versucht, das Ein¬ 
lesen und Starten von Program¬ 
men auf den Schneider- 
Computern ähnlich einfach zu ma¬ 
chen, wie bei GEM. Dadurch kön¬ 
nen nun auch einmal die anderen 
Familienmitglieder die neuen 
Programme ausprobieren, die 
sonst auf den guten Willen des 
jeweiligen 'Fachmanns' angewie¬ 
sen sind. 


Was ist Dirlist? 


Wenn Sie Dirlist eingetippt ha¬ 
ben, sollten Sie praktischerweise 


10 REM *»***••***»*«**»***•**»*»«** 

20 REM ** Dirlist ** 

30 REM ** von Thomas M.Binzinger ** 

40 REM ** Fuer CPC 464/S64/612B •* 

50 REM **************************** 

B0 GOTO 190:REM Zur Hauptschleife 

70 SYMBOL 255,255,0,0,0,0,0,0,0;SYMBOL 253,192,132 
,192,192,192,192,192,192 

BO SYMBOL 254,3,3,3,3,3,3,3,3:SYMBOL 252,0,0,0,0,0 
,0,0,255 

90 SYMBOL 251,255,0,24,BO,BO,24,0,0:SYMBOL 247,255 
,192,192,192,192,192,192,192 

100 SYMBOL 24B,255,3,3,3,3,3,3,3:SYMBOL 249,192,19 

2.192.192.192.192.192.255 

110 SYMBOL 250,3,3,3,3,3,3,3,255:SYMBOL 244,0,0,25 

5.192.192.192.192.255 

120 SYMBOL 245,0,0,255,0,0,0,0,255:SYMBOL 246,0,0, 

255.3.3.3.3.255 

130 b$“CHR$C10)+STRING$C5,B) 

140 picon$-CHR$C247) +CHRSC255)+CHRS C251)+CHRS C255) 
+CHR$C24B)+b$+CHR$C253)+” ”+CHR$C230:> + ” "+CHRSC254 
)+b$+CHR$C249)+CHR$C244:>+CHR$C245)+CHRSC246:)+CHR$C 
250) 

150 dican$-CHR$C247)+STRING$C3,255)+CHRSC215)+b$+C 
HR$ C 253) + ”DBT”+CHRS C 254)+b$+CHR$C 249)+STRINGS C 3,25 
2)+CHR$C250) 

160 ticon$-CHR$(247)+STRING$C3,255)+CHR$C215)+b$+C 
HRSC253)+” ”+CHRSC254)+b$+CHRSC249)+STRINGSC3,25 
2)+CHR$(250) 

170 uicon$-CHRSC247)+STRINGSC3,255)+CHRSC248)+b$+C 
HR$C253)+” ? H +CHR$C254)+b$+CHR$C249)+CHR$C244)+CH 
RSC245)+CHRSC246)+CHRSC250) 

1B0 RETURN 
190 REM 

200 MDDE 2:INK 0,13:INK 1,0:B0RDER 13 




































































Utility 78_Schneider spezial 


eine Kopie davon auf jede Ihrer 
Disketten schreiben (Dirlist arbei¬ 
tet nur mit Diskette!), und zwar 
am besten unter einem Ein- 
Buchstabe-Namen, wie 'D'. Hän¬ 
gen Sie jetzt noch einen Zettel der 
Art 'Computer wird folgenderma¬ 
ßen eingeschaltet..., Diskette so 
einlegen, RUN,,D“ ENTER einge¬ 
ben... Programm auswählen' an 
den Computer. Nun weiß jedes, 
auch noch so technik-ferne Fami¬ 
lienmitglied, wie es Programme 
starten kann. Denn sobald Dirlist 
gestartet wurde, zeigt es in 'GEM- 
Manier' das Inhaltsverzeichnis der 
Diskette an, und das entsprechen¬ 
de Programm kann dann mit ei¬ 
nem Joystick oder den Pfeiltasten 
ausgewählt werden. Dann nur 
noch ENTER (oder den Knopf am 
Joystick) drücken, und das Pro¬ 
gramm läuft. Dirlist sorgt dafür, 
dass nur BASIC- oder Binär-Files 
gestartet werden können, um jede 
Fehlbedienung zu vermeiden. Bil¬ 
der (also Binär-Files, die in den 
Bildschirmspeicher geladen wer¬ 
den) werden nicht gestartet, son¬ 
dern nur angezeigt, wenn sie aus¬ 
gewählt werden. Dirlist erkennt 
Bilder an den Extensions. SCR 
oder .PIC (.PIC-Dateien werden 
zum Beispiel vom Grafikeditor er¬ 
zeugt). 


Auch für den Profi 


Damit Dirlist auch dem Profi, der 
sich ja schließlich die Mühe ge¬ 
macht hat, es einzutippen, etwas 
nutzt, kann man damit auch Datei¬ 
en löschen, und zwar wesentlich 
bequemer als mit 'a$ = “... öera,....’. 
Dazu einfach das entsprechende 
Symbol anwählen, und ’U für Lö¬ 
schen drücken. Das Programm 
fragt noch einmal ab, ob man auch 
sicher ist, und wenn ja, wird das 
File gelöscht. Zum Abschluss hier 
noch einmal alle Datei-Typen, für 
die Dirlist ein spezielles Symbol 
hat (handelt es sich um keines da¬ 
von, wird die Diskette mit dem Fra¬ 
gezeichen angezeigt): BASIC und 
BIN-Files: Eine normale Diskette, 
Bilder (.PIC/.SCR): Diskette mit 
Gesicht, CPM-COM-Files: Disket¬ 
te mit ’CPM', Dateien (.DAT oder 
keine Extension:): Blatt mit 'DAT 1 , 
Texte (.TXT): Papier mit Eselsohr, 
alles andere: Diskette mit Frage¬ 
zeichen. 


510 OPENOUT”d” : MEMORY HIMEM-1: ba-HIMEM+204B: CLOSEO 
UT:Din i$C70) 

220 UilNDOU #2,64,79,5,10:WIND0U #3,1,61,1,25 
230 ERA5E iS:DIM 1SC70) : UINDOUi #1,1,BO,22,25:LOCAT 
E 1,21:PRINT SPACE5CB0);:LOCATE 30,21:PRINT” Lese 
Directory ... ”:UJIND0U SLüAP 0,1: CL5: PRINT CHRSC21) ; : 
CAT.-PRINT CHR93C6) ; : UINDOUI SUJAP 0,1:G0SUB 770:REM B 
egleittext 

240 ad-ba : UJHILE PEEKCad)<65 DR PEEKC ad)>90: ad-ad+1 
: bJEND 

250 z-l:p-ad: UJHILE PEEKCp)<>0 

260 i$Cz)-””:FOR x-p TD p+10:i$Cz)-iSCz)+CHR$CPEEK 
Cx) ) :PDKE x,0:NEXT 

270 iSCz)-LEFTSCi$Cz) ,B) + ” . ”+RIGHT$Ci$Cz) , 35 
2B0 z-Z+l:p-p+14:WEND 

290 FOR 1-MINC70, z+1) TO 70:i$Ci)-"”:NEXT 
300 ofs-1 

310 GOSUB 70:REH Symbole definieren 
320 GOSUB 500:REH Seite anzeigen 
330 i-ofs.-x-l:y-l 

340 PRINT CHR5C24);:GOSUB 570:PRINT CHRSC24); 

350 IF INKEYC47)-0 THEN 230:REM Neu anzeugen 
360 IF INKEYC365-0 THEN CLS #2:PRINT #2:PRINT #2,” 
SICHER Cj/n) ?":bS-”":FDR t-1 TO 100:bS D bS+INKEYS: 
NEXT: s$-””: UJHILE sS-””:sS-INKEYS:UEND:s$-UPPER$CsS 
5:IF sS-”J” THEN PRINT #2,"Loesche:”:PRINT #2,iSCi 
):!ERA,Oi$Ci):GOTO 230 ELSE 230 

370 IF INKEYC1B5<>0 AND J0YC0)<>16 THEN 420:REn ke 
in Programm ausgewaehlt->320 " 

3B0 IF i-ofs+19 AND i$Cofs+ep)<>THEN ofs-ofs+19 
:GOTO 320:REM Next Page 
390 REN 

400 REM mm Programm starten oder ein Bild C.PIC/.S 
CR) anzeigen 

410 ex$“RI GHTJEC iSC i ) , 3) : IF ex$-”PIC” DR exS-”5CR” 
THEN MODE 1:L0AD i$Ci) , &C000: UJHILE J0YC0)-0 AND IN 
KEY C1B ) < > 0: UJEND: MODE 2:GDT0 220 ELSE IF exS-"BIN" 
OR exS-”BAS” THEN CALL &BBOO:CALL &BB4E:RUN i$Ci) 
ELSE PRINT CHRSC7); 

420 a-JOYCO):IF a-0 AND INKEYC0)<>0 AND INKEY C1X 
>0 AND INKEYC2X>0 AND INKEYC8)<>0 THEN 350 
430 GOSUB 570:p-i:xa-x:ya-y 

440 IF CCa AND 1)-1 OR INKEYC05-0) AND y<>l THEN y 
-y-5:i-i-4 

450 IF CCa AND 2)-2 DR INKEYC25-0) AND y<>21 THEN 
yy+5: i“i+4 

460 IF CCa AND 4)-4 OR INKEYCB5-0) AND x<> 1 THEN x 
-x-16:i-i-1 

470 IF CCa AND B)-8 OR INKEYCD-O) AND x<>49 THEN 
x-x+16:i-i + 1 

4B0 IF iSCi)-"” THEN i-p:x-xa:y-ya 
490 GOTO 340 

500 CLS #3:x-l:y-l:i-ofs:ep-0:FOR y-1 TO 25 STEP 5 
:FOR x-1 TO 64 STEP 16 

510 ep-ep+l:IF ep-20 AND i$Ci+l)<>”” THEN GOSUB 74 
0:RETURN 

520 IF i $ C i ) - ” ” THEN RETURN 
530 GOSUB 570:REM ein Symbol anzeigen 
540 i-i + 1: NEXT: NEXT .-RETURN 
550 REM 

560 REM ** Drucke Je nach exCtension)$ das entspre 
chende Symbol 

570 IF i-ofs+19 THEN 730:REM ’Next Page' anstelle 
des Prs anzeigen 

5B0 iS-iSCi):IF LENCi$)-INSTRCiS,".") THEN i$-iS+S 
PBCES 3' 
















Utility 


590 ex$“RIGHTS(iS,3}:LOCATE x+4,y 

600 IF exS”"BAS" OR ex$-"COM” DR ex$- H BIN” THEN PR 
INT picon$;:GOTÜ 640 

BIO IF ex$-”DAT" DR ex$-" " THEN PRINT dicon$;:G 

□TO G40 

620 IF exS*"TXT” GR ex$-"DOC" THEN PR INT.tiConS; :G 
□TO 640 

630 PRINT uiconS; 

640 IF ex$“"COM" THEN LOCATE x+5, y+l: PRINT"CPM" ; 
650 IF bxS” ”PIC" OR ex$“"SCR” THEN LOCATE x+6,y+l: 
PRINT CHRSC2B43; 

660 i$“i$Ci3 

670 IF INSTRCiS," "3-0 THEN 690 ELSE sp-INSTRCiS," 
”3 

6B0 i5-LEFT$(iS,sp-13+RIGHTSCiS,LENtiS 3~sp3:GOTO 6 
70 

690 i$Ci3-i$ 

700 LOCATE x+6-LENCiSCi33/2,y+3:PRINT i$Ci3; 
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710 RETURN 
720 REH 

730 REH •• Drucke Symbol ’Next PaQe’ 

740 LOCATE 53,21:PRINT CHRSC243+”next "+CHRSC243;: 
LOCATE 53,22:PRINT CHR$C243+"paBe "+CHRSC243;:LOCA 
TE 53,23:PRINT CHRSC243+ " "+CHRSC1543+CHRSC2433+" 
"+CHRSCS43; : RETURN 
750 REM 

760 REM •• Zeige Begleittext an rechter Seite an 
770 CLS M2: PLOT 499,399,1: DRAüJ 499,224; DRAU 639,22 
4:DRAU 639,399:DRAU 499,399 

7B0 UINDOU SUAP 0,2:FOR x-240 TO 243:PRINT CHR$Cx3 
";NEXT:PRINT"/ J0YC03PRINT"zum auswaehlen":P 
RINT:PRINT”'ENTER" / FEUER":PRINT"zum startBn”:PRI 
NT:PRINT”’L’ zum loeschen" : PRINT”'SPACE’: NEU" 

790 UINDOU SUAP 0,2:RETURN 
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Schneider spezial 

von Beate Lang 

Im vorliegenden Beitrag wird 
gezeigt, wie mit Hilfe einer einfa¬ 
chen Schaltung bis zu 16 analoge 
Meßwerte vom Computer erfaßt 
und verarbeitet werden können. 
Obgleich die Steuerung des Meß¬ 
wandlers am Beispiel des CPC 
464 gezeigt wird, läßt sie sich mit 
geringen Änderungen an jedem 
Home-Computer betreiben. 

Im allgemeinen können Compu¬ 
ter nur digitale Größen verarbei¬ 
ten. Es ist daher erforderlich, die 
analogen Werte zunächst zu digita¬ 
lisieren. 

Dies geschieht mit Hilfe eines 
Analog/Digital-Wandlers. Die 
Steuerung des Wandlers sowie die 
Übergabe der digitalisierten Da¬ 
ten an den Computer erfolgt über 
eine parallele Ein-Ausgabeschnitt- 
stelle. 

Das hier vorgestellte Programm 
arbeitet mit der PIO-Schnittstelle, 
die den PlO-Baustein 8255 enthält. 

Als Analog/Digital-Wandler wird 
der DAS-952R von Jntersil/Datel 
eingesetzt. Dieser ermöglicht die 
Digitalisierung von 16 Analogein¬ 
gängen in 8 Bit-Datenwörter. Bild 1 
zeigt die Anschlüsse und den in¬ 
ternen Aufbau. Bild 2 zeigt das Im¬ 
pulsdiagramm für die wichtigsten 
Signale dieses Bausteins laut Da¬ 
tenblatt. 

Die Auswahl der 16 Eingangska¬ 
näle geschieht über die vier 
Adressierungen Al bis A8 und 
den im Baustein integrierten 
Adressdekoder. Die an den 
Adressierungen anliegende 
Adresse wird vom Dekoder mit 
dem nach High gehenden Adress- 
Enable-Signal (AE) übernommen. 
In Bild 3 sind die Adressen der je¬ 
weiligen Eingänge aufgeführt. 

Die Digitalisierung des ausge¬ 
wählten Kanals beginnt, wenn das 
Signal ,,Start of Conversion" ge¬ 
setzt wird. Dabei setzt die anstei¬ 
gende Flanke dieses Signals den 8 
Bit-ADC zurück, während die fal¬ 
lende Flanke die eigentliche Digi¬ 
talisierung startet. 

Die Digitalisierung kann durch 
einen neuen „Start of Conversion' 1 
Impuls unterbrochen und neu ge¬ 
startet werden. 

Nach 64 Clock-Perioden ist die 
A/ D-Umwandlung beendet und 
der Ausgang ,,End of Conversion 
(EOC)‘‘ nimmt High-Pegel an. Der 
in einem Three-State-Ausgabe- 
puffer zwischengespeicherte digi¬ 
tale Wert kann gelesen werden, 
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wenn das Signal „Output Enable 
(OE)“ auf High-Pegel gesetzt wird. 

Bild 4 zeigt die komplette Schal¬ 
tung des A/D-Wandlers und den 
Anschluß an die PlO-Schmttstelle. 

In der gezeigten Schaltung wur¬ 
de OE fest auf +5V gelegt, wo¬ 
durch das Ergebnis der Umwand¬ 
lung stets an den Ausgängen 
D1-D8 anliegt, bis es durch einen 
neuen Wert überschrieben wird. 
Die Zuordnung zwischen digita¬ 
lem Wert und analoger Meßgröße 
erfolgt durch die Spannung an 
den Referenzeingängen des A/D- 
Wandlers. In der vorliegenden 
Schaltung liegt -Ref In an GND und 
+ Ref In an h 5V. Dadurch erzeugt 
eine Eingangsspannung von OV 
das Daten wort 00 und eine Em- 
gangsspannung von +5V das Da¬ 
tenwort &FF. Damit ergibt sich bei 
einem 8 Bit breiten Datenwort eine 
Auflösung von 5V/255 20mV/Bit. 
Durch eine Trennung des Ref In- 
Eihgangs von der + 5V-Versorgung 
und eine Stabilisierung auf z.B. 
+ 2V wird eine andere Auflösung, 
z.B. 8mV/Bit, erreicht. 


Hardware 


Zur Spannungsstabilisierung 
werden die Stabilisatoren 
VR-182C, zur Erzeugung des Takt¬ 
signals der SG-10/153.6K, beide 
von Intersil/Datel, verwendet. 

Die Schaltung wurde für eine 
Versorgungsspannung von 9-18V 
ausgelegt. Für weitere Informatio¬ 
nen sei auf das Datenblatt der 
Herstellerfirma General Elektrik, 
Bereich Datei, Bavariarmg 8/1, 
Postfach 150826, 8000 München 15, 
verwiesen. 

Der Schnittstellenbaustein 8255 
wird in der kombinierten Betriebs¬ 
art 0/1 betrieben. 

Die Betriebsart 0 ermöglicht ei¬ 
ne einfache Ein- oder Ausgabe oh¬ 
ne Quittungssignale, in der Be¬ 
triebsart 1 wird die Ein- bzw. Aus¬ 
gabe durch Quittungssignale ge¬ 
steuert. 

Bild 5 zeigt die Funktion und Ar¬ 
beitsweise der einzelnen 
Schnittstellen-Ports. 

Das Port A (A0-A3) wird zur Ka- 
naladressierung des A/D- 
Wandlers verwendet, über das 
Port B (B0-B7) werden die digitali¬ 
sierten Daten vom ADC in den 


cx 

ex 

OH 

CH 

cx 

cx 

cx 

cx 
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Ws 
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Mux 
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31 
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30 

Bit 

2 


29 

Bit 

3 


28 
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24 
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8 
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Büd 1 Aufbau des DAS-952R 










































Hardware 


82 


Schneider spezial 


■■■ 


Programmbeschreibung 


Computer eingelesen, das Port C 
dient zur Steuerung, des ADC und 
der Schnittstelle. Über C7 wird 
der „Adress-Enable'Tmpuls und 
über C6 der ,,Start Conversion“ 
Impuls an den ADC gesendet. Auf 
C2 wird das invertierte EOC- 
Signal gelegt, das als Strobe- 
Signal für den Port B der Schnitt¬ 
stelle dient. 

Die freien Portleitungen C3 bis 
C5 sind als Ausgänge program¬ 
miert und könnten für Steuer¬ 
zwecke (z.B. Schrittmotoren in x-, y-, 
z-Richtung) verwendet werden. 


BASIC-Programm 


Das folgende BASIC-Programm 
initialisiert die Schnittstelle und 
steuert den Programmablauf. 

Es ermöglicht die Digitalisie¬ 
rung der an den Analogeingängen 
anliegenden Spannungen in belie¬ 
biger Reihenfolge und mit beliebi¬ 
gen Zeit Verzögerungen. Weiterhin 
können die Eichfaktoren, mit de¬ 
nen die digitalen Werte multipli¬ 
ziert werden sollen, eingegeben 
werden. 

Während des Digitalisierungs- 
vorgangs werden der momentan 
aktive Analogeingang und der un- 
geeichte digitale Wert am Bild¬ 
schirm ausgegeben. 

Ferner wird die Zeit seit Start 
des Meßprogramms angezeigt. 
Nach beendeter Messung können 
für jeden Analogeingang die ge¬ 
eichten Meßdaten in Tabellenform 
dreispaltig auf dem Bildschirm 
oder Drucker ausgedruckt und 
auf Diskette oder Kassette abge¬ 
speichert (oder geladen) werden. 

Die Steuerung des A/D- 
Wandlers erfolgt über ein Maschi¬ 
nenprogramm, das mit einem Call- 
Befehl aus dem BASIC-Programm 
aufgerufen wird (Zeile 1080). 

Dieser Call-Befehl enthält zwei 
Parameter: 

Der erste übergibt an das Ma¬ 
schinenprogramm die Speicher¬ 
adresse der Variablen k(i), welche 
die Kanalnummer des aktuellen 
Analogeingangs enthält, der zwei¬ 
te umfaßt die Adresse der Varia¬ 
blen x(j,i). In diese Variable spei¬ 
chert das Maschinenprogramm 
den digitalisierten Wert ab und 
übergibt so diesen Wert an das 
BASIC-Programm. 


Um das Programm möglichst an- 
wenderfreundlich zu gestalten, 
wurde es vollständig in Menütech¬ 
nik aufgebaut. Der Bildschirm 
wird dabei während des Pro¬ 
grammablaufs in drei Bereiche 
eingeteilt. 

Der untere Teil zeigt das Haupt¬ 
menü, über das die einzelnen Pro¬ 
grammpunkte ausgewählt werden 
können. 

Im oberen Teil werden der mo¬ 
mentan angesprochene Pro¬ 
grammpunkt sowie das dazugehö¬ 
rige Untermenü angezeigt. 

Der mittlere Bildschirmbereich 
dient zur Programmausführung. 
Nach dem Ausdruck ,,Bitte wählen 
Sie...“ ist es möglich, entweder ei¬ 
nen Punkt des Untermenüs oder 
aber einen neuen Programmpunkt 
aus dem Hauptmenü durch Einga¬ 


be des angegebenen Zahlenwer¬ 
tes bzw. Buchstabens zu wählen. 

1. Programmpunkt: 
MNITIALISIEHUNG 

Unter diesem Programmpunkt 
können alle für die Messung erfor¬ 
derlichen Daten eingegeben oder 
geändert werden. 

1-Kanalfolge 

In diesem Unterprogramm wird 
die Reihenfolge festgelegt, mit der 
die gewünschten Kanäle des ADC 
abgefragt werden sollen. Es sind 
max. 16 Werte möglich, wobei in 
der Kanalfolge ein Kanal auch 
mehrmals abgefragt werden kann. 

Sollen z.B. die ersten drei Kanäle 
und der letzte Kanal des ADC in 
der Reihenfolge 1, 2, 16, 3, 2 einge¬ 
lesen und digitalisiert werden, 
dann muß als Kanalfolge T, 2, 16, 3, 
2 ENTER' eingegeben werden. 
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KANALADRESSE 


KANALNUMMER 

AB 

A4 

A2 

Al 


0 

0 

0 

0 

1 

0 

0 

0 

1 

2 

0 

0 

1 

0 

3 

0 

0 

1 

1 

4 

0 

1 

0‘ 

0 

5 

0 

1 

0 

1 

6 

0 

1 

1 

0 

7 

0 

1 

1 

1 

8 

1 

0 

0 

0 

9 

1 

0 

0 

1 

10 

1 

0 

1 

0 

11 

1 

0 

1 

1 

12 

1 

1 

0 

0 

13 

1 

1 

0 

1 

14 

1 

1 

1 

0 

15 

1 

1 

1 

1 

16 


Bild 3 Kanaladressen des DAS-952R 


Solange die Eingabezeile noch 
nicht mit ENTER abgeschlossen 
wurde, kann sie mit den Cursor-, 
CLS- und DEL-Tasten korrigiert 
werden, 

2- Zeitfolge 

Dieses Unterprogramm dient 
zur Festlegung der zeitlichen Ver¬ 
zögerungen zwischen den einzel¬ 
nen Kanalabfragen. Die Verzöge¬ 
rungen werden in Sekunden ein¬ 
gegeben. Für die Kanalfolge 1, 2, 
16, 3, 2 bedeutet z.B. die Eingabe 
‘0, 1, 10 ENTER', daß der Kanal 1 
sofort, der Kanal 2 eine Sekunde 
nach dem Kanal 1, der Kanal 16 
zehn Sekunden nach dem Kanal 2 
und die Kanäle 3 und 2 ohne Ver¬ 
zögerung vom ADC gelesen und 
digitalisiert werden. 

3- Eichung 

In diesem Unterprogramm kön¬ 
nen die Eichfaktoren eingegeben 
werden, mit denen die digitalisier¬ 
ten Werte der einzelnen Kanäle 
multipliziert werden sollen. 



16 x 

Analog Input 

Bild 4 Schaltung des ADC und Anschluß an die Schnittstelle 
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AO 

Ausgang 

> 






Al 

Ausgang 







A2 

Ausgang 


Kanalauswahl 



Port 

A 

A3 

Ausgang 







A4 

Ausgang 







A5 

Ausgang 







A6 

Ausgang 


unbenutzt 

Gruppe A 




A7 

Ausgang 

. 






C7 

Ausgang 


Adress Enable 





C6 

Ausgang 


Start Conversion 





C5 

Ausgang 

> 


V 

Port 

c 

C4 

Ausgang 


frei 




C3 

Ausgang 







C2 

Eingang 


End of Conversion 





CI 

Ausgang 


IBF(=Eingabe-Puffer voll) 





CO 

4 

Ausgang 


Interrupt für Port B, unbenutzt 





' BO 

Eingang 

> 


Gruppe B ■ 




Bl 

Eingang 







B2 

Eingang 





Port 

B 

B3 

Eingang 


digitalisierte Daten 





B4 

Eingang 


/ vom ADC 





B5 

Eingang 


i 





B6 

Eingang 


\ 


V 



B7 

Eingang 


J 


Steuerwort für den 8255 : 


10000110 


Port C: C3=Ausgang 
Port B: B0-B7=Eingang 
Gruppe B=Betriebsart 1 
Port C: C4-C7=Ausgang 
Port A: A0-A7=Ausgang 
Gruppe A=Betriebsart 0 
Funktion: Betriebsart setzen 


Bild 5 Funktion der PlO-Ports 


Für die Kanalfolge 1, 2, 16, 3, 2 
bedeutet die Eingabe 0.1, 10, 2 z.B., 
daß die Werte des Kanals 1 mit 0.1, 
die des Kanals 2 mit 10, die des Ka¬ 
nals 16 mit 2 und die des Kanals 3 
mit 1 multipliziert werden. 

Tritt ein Kanal mehrmals in einer 
Kanalfolge auf, so wird der erste 
für diesen Kanal eingegebene 
Wert zur Eichung verwendet. 

2. Programmpunkt: 
M-MESSUNG 

Bei diesem Programmpunkt 
wird nach der Zahl der Messun¬ 
gen gefragt, d.h., wie oft die Kanal¬ 
folge durchlaufen werden soll, die 
ungefähre Meßdauer berechnet 
und ausgedruckt und alte Messun¬ 
gen gelöscht. 

Weiterhin wird die maximal 
mögliche Anzahl der Messungen 


am Bildschirm ausgegeben. Sie ist 
von der Anzahl der Kanäle in der 
Kanalfolge abhängig. 

1-Start 

Dieses Unterprogramm startet 
das Meßprogramm. Zunächst wird 
die Uhr des CPC auf Null gestellt. 
Dann werden die einzelnen Kanä¬ 
le der Kanal- und Zeitfolge ent¬ 
sprechend abgefragt und digitali¬ 
siert. 

Am Bildschirm werden die ak¬ 
tuelle Kanalnummer und der un- 
geeichte Wert ausgegeben. 

Die Digitalisierung eines Kanals 
mit dem Bildschirmausdruck dau¬ 
ert etwa 0.07 Sekunden. Wenn die 
Kanäle in kürzeren Abständen ab¬ 
gefragt werden sollen, dann muß 
der Print-Befehl in Programmzelle 
1090 weggelassen werden, der ca. 
0.03 Sekunden dauert. 


ESC-Stop 

Der Meßablauf kann jederzeit 
durch zweimaliges Drücken der 
ESC-Taste unterbrochen werden. 
Am Bildschirm wird dann die 
Nummer der letzten vollständigen 
Messung ausgegeben. 

Nach einem Stop kann mit 
T(Start) die Messung neu begon¬ 
nen werden. Dabei wird die alte 
Eingabe für die Anzahl der Mes¬ 
sungen übernommen. 

Es ist aber auch möglich, durch 
Eingabe des angegebenen Buch¬ 
stabens einen anderen Programm¬ 
punkt aus dem Hauptmenü zu 
wählen, so kann z.B. nach der Ein¬ 
gabe ’M’ (Messung) die Anzahl 
der Messungen geändert und 
dann die Messung neu gestartet 
werden. 
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Zu beachten ist, daß nach dem 
Start einer, neuen Messung oder 
nach dem Ändern der Meßanzahl 
alle alten Meßwerte gelöscht wer¬ 
den (evtl, vorher abspeichern). 

3. Programmpunkt: 
Ä-ÄUSDRUCK 

Dieser Programmpunkt dient 
zur tabellarischen Ausgabe der 
Meßwerte auf dem Bildschirm 
oder Drucker. 

1-Bildschirm 2-Drucker 

Nach der Eingabe der ge¬ 
wünschten Kanal-Nummer werden 
die zugehörigen geeichten Meß¬ 
werte dreispaltig ausgedruckt. 


Kommt der Kanal in der Kanalfol¬ 
ge mehrmals vor, dann werden al¬ 
le Messungen dieses Kanals zeit¬ 
lich geordnet in der Tabelle aus¬ 
gegeben. 

4. Programmpunkt: 
S-SÄVE/LOÄD 

Unter diesem Programmpunkt 
können die Meßwerte auf Disket¬ 
te/Kassette unter einem frei zu 
wählenden Namen abgespeichert 
oder geladen werden. 

1-Speichern 2-Laden 

Abgespeichert werden folgen¬ 
de Daten: 


Die Zahl der Messungen, m, die 
Zahl der Kanäle in der Kanalfolge, 
n, die Kanalfolge k(n), die Zeitfolge 
z(n), die Eichfaktoren f(n), die 
Meßwerte x(n,m) und ihre zeitliche 
Zuordnung t(n,m). 

5. Programmpunkt: 
E-PROGRAMMENDE 

Unter diesem Programmpunkt 
kann das Programm durch 
Drücken einer Taste außer i, m, a, 
s, e beendet werden. Über die Ta¬ 
sten i, m, a, s, e wird dem Haupt¬ 
menü entsprechend ein anderer 
Programmpunkt angewählt. 


10 REM **********************«***********«*«**.*********«****** 

20 REM * Steuerprogramm fuer den A/D-Wandler DAS-952R * 

30 REM * Copyright 1985 by Beate Lang * 

40 REM ******************************************************** 

50 REM 

60 MEMORY &A5FF:DEFINT a-z:DEFREAL f,t 

70 MODE 2:BORDER 0:INK 0,0:INK 1,25 

80 DIM x(3,50),t(3,50) ,f(15) , k(15),z(15) ,g(15) 

90 FOR i=0 TO 15:f(i)=l:NEXT:n=-l 

100 s=0:FOR i=&A600 TO &A64C:READ a:POKE i,a: S=S + a:NEXT 
110 IF s<> 10924 THEN PRINT"Fehler in den Data-Zeilen! ,f : END 

120 CALL &A600: '-*** INITIALISIERUNG PIO *** 

130 ON BREAK GOSUB 490 

140 WINDOW#0,1,80,3,23:WINDOW#!,1,70,1,1 

150 WINDOW#2,1,80,25,25:WIND0W#3,71,80,1,1 

160 CLS : CLS#1 CLS#2 : EVERY 50,0 GOSUB 230 

170 MOVE 0,376:DRAWR 639,0:MOVE 0,20:DRAWR 639,0 

180 PRINT#2," I-Initialisierung";SPC(6);"M-Messung"; 

190 PRINT#2,SPC(6);"A-Ausdruck”;SPC(6)"S-Save/Load";SPC(6);"E-Ende" 

200 GOSUB 260:IF 1=0 THEN 200 

210 ON 1 GOTO 510,810,1120,1420,1720 

220 REM- *** SEKUNDENANZEIGE *** 

230 PRINT#3,USING ”#########" ; TIME/300 
240 RETURN 

250 REM- *** TASTATURABFRAGE *** 

260 PRINT:PRINT”Bitte waehlen Sie...” 

270 in$=INKEY$:IF in$=”" THEN 270 
280 1=0:in$=UPPER$(in$) 

290 IF in$=”I” THEN 1=1:RETURN 
300 IF in$="M" THEN 1=2:RETURN 
310 IF in$="A" THEN 1=3:RETURN 
320 IF in$="S” THEN 1=4: RETURN 
330 IF in$="E" THEN 1=5 
340 RETURN 

350 REM- *** EINGABE-ZERLEGUNG *** 

360 s=0:LINE INPUT in$:sm=LEN(in$) 

370 e$=" M :WHILE s<sm: S = S + 1:W$=MID$(in$,s,1):IF w$ = "," THEN RETURN 
380 e$=e$+w$:WEND 
390 RETURN 

400 REM- *** PARAMETER-AUSDRUCK *** 

410 CLS:PRINT"Kanalfolge: ";:FOR i=0 TO n:PRINT STR$(k(i:NEXT 
420 PRINT CHR$(8);CHR$(16) 
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430 PRINT"Zeitf olge : M ; : FOR i = 0 TO n:PRINT STR$(z( i )/50 ) ;" , " ; : NEXT 


440 PRINT CHR${8);CHR$(16) 

450 PRINT"Eichung : M ; :FOR i = 0 TO n:PRINT STR$ ( f(i )) ; " , M ; :NEXT 

460 PRINT CHR$(8);CHR$(16):PRINT 
470 RETURN 

480 REM- *** BREAK *** 

490 esc=-l:RETURN 

500 REM- *** INITIALISIERUNG *** 

510 CLS#1:PRINT#1,CHR$(24 ); " INITIALISIERUNG ";CHR$(24); 


520 PRINT#1,SPC(2);"1-Kanalfolge”;SPC(2);"2-Zeitfolge";SPC(2);"3-Eichung" 

530 CLS:IF n>-l THEN GOSUB 410 

540 GOSUB 260:IF 1 THEN 210 

550 IF in$="l" THEN GOSUB 600: GOTO 530 

560 IF in$="2" THEN GOSUB 670:GOTO 530 

570 IF in$="3" THEN GOSUB 740 

580 GOTO 530 

590 REM- *** KANALFOLGE *** 

600 CLS:PRINT CHR$(24);"Kanalfolge";CHR$(24) 

610 PRINT:PRINT"Bitte die Kanalfolge eingeben (1... 16,durch Komma 

620 GOSUB 360 getrennt):" 

630 FOR n=0 TO 15:k(n)=VAL(e$):IF k(n)<l OR k(n)>16 THEN 610 

640 IF S=sm THEN RETURN ELSE GOSUB 370:NEXT 

650 n=n-l:RETURN 

660 REM- *** ZEITFOLGE *** 

670 PRINT CHR$(24);"Zeitfolge";CHR$(24) 

680 IF n=-l THEN GOSUB 610:GOSUB 410 

690 PRINT:PRINT"Bitte Wartezeiten fuer die Kanaele eingeben (in [s], 
durch Komma getrennt):" 

700 GOSUB 360 

710 FOR i = 0 TO n:z(i)=50*VAL(e$):IF s=sm THEN FOR j = i + l TO n:z(j)=0:NEXT 
ELSE G0 SUB 370:NEXT 
720 RETURN 

730 REM- *** EICHUNG *** 

740 PRINT CHR$(24);"Eichung";CHR$(24) 

750 IF n=-l THEN GOSUB 610:GOSUB 410 

760 PRINT:PRINT"Bitte die Eichfaktoren der Kanaele - durch Kommas 
getrennt - eingeben:" 

770 GOSUB 360 

780 FOR 1=0 TO n:f(i)=VAL(e$):IF S=sm THEN FOR j=i+l TO n:f(J)=1:NEXT 
ELSE GOSUB 370:NEXT 
790 RETURN 

800 REM- *** MESSUNG *** 

810 CLS#1:PRINT#1,CHR$(24);" MESSUNG ";CHR$(24); 

820 IF n=-l THEN GOSUB 610 

830 CLS:GOSUB 410:a=FIX(4000/(n+1)) 

840 PRINT:PRINT"Wieviele Messungen sollen gemacht werden 
( 1 -";a ; ")"; :INPUT m 
850 IF m<1 OR m >a THEN 840 ELSE m=m-l 
860 ERASE x,t:DIM x(n,m),t(n,m) 

870 t=0:FOR i=0 TO n:t=t+Z(i)/50:NEXT 
880 t=(m+l)*(t+(n+l)*0.07) 

890 PRINT"gesamte Messzeit ca.";ROUND(t,0);"s" 

900 PRINT#1,SPC(15);"1-Start";SPC{8);"ESC-Stop":esc=0 
910 GOSUB 270:IF 1 AND esc THEN esc=0:m=j:GOTO 210 
920 IF 1 THEN 210 

930 IF in$ = "l" THEN GOSUB 960:G<S>TO 910 
940 GOTO 910 

950 REM- *** START/STOP *** 

960 CLS:esc=0:FOR i=0 TO 3:POKE &B187+i,0:NEXT 
970 FOR j =0 TO m 
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980 FOR i=0 TO n 
990 IF esc THEN 1030 

1000 IF z(i) THEN AFTER Z(i),3 GOSUB 1080 ELSE GOSUB 1080 
1010 IF 1=0 THEN 1010 

1020 1 = 0:NEXT:NEXT:PRINT:PRINT"* * * Messung beendet ***":GOTO 1060 
1030 PRINT : PRINT ,, Programm gestoppt"; 

1040 IF j THEN PRINT" nach Messung Nr.";j 
1050 j = j-1 

1060 PRINT:PRINT"Bitte waehlen Sie.RETURN 

1070 REM- *** DIGITALISIERUNG *** 

1080 CALL &A608,@k(i) ,@x( i , j ) 

1090 t(i,j)=TIME/300:PRINT USING "####";k(i);X(i,j), 

1100 1=1:RETURN 

1110 REM- *** AUSDRUCK *** 

1120 CLS#1:PRINT#1,CHR$(24);" AUSDRUCK ";CHR$(24); 

1130 PRINT#1,SPC(10);"1-Bildschirm";SPC(5);"2-Drucker":CLS 
1140 IF m = -l THEN PRINT"Keine Messwerte vorhanden!" 

1150 GOSUB 260:IF 1 THEN 210 

1160 IF in$="l" THEN 1=1:W$="BILDSCHIRM ":w=0:a=16:GOSUB 1200:GOTO 1150 
1170 IF in$="2" THEN 1=1:W$="DRUCKER ":W=8:a=S*(m + 1)/3+0.4:GOSUB 1200 
1180 GOTO 1150 

1190 REM- *** TABELLEN=AUSDRUCK *** 

1200 CLS:PRINT CHR$(24);" AUSDRUCK ";w$;CHR$(24) 

1210 PRINT"Moegliche KanalnummernFOR i=0 TO n:PRINT k 
(i) : NEXT: PRINT CHR $(8) ;CHR$(16) 

1220 PRINT:INPUT"Ausdruck fuer Kanal-Nr.";in 
1230 s=0:FOR i=0 TO n:IF k(i)=in THEN g(s)=i:S=S+l 
1240 NEXT:IF s=0 THEN 1210 

1250 e$="#.#":b=LEN(STR$(FIX(t(g(s-l),m))))-1:FOR j=l TO b:e$="#"+e$ 

:NEXT:b=8-b 

1260 c=FIX(s*m/a):FOR i=0 TO c STEP 3 

1270 CLS:PRINT#w,"Kanal-Nr.:";k(g(0));SPC(45);"Eichfaktor="; 
f(g(0)):PRINT#W 

1280 FOR l=i TO i + 2 :IF l>c THEN 1300 

1290 PRINT#w," NR.J WERT ! ZEIT(s) ";:NEXT 

1300 PRINT#W,CHR$(13);:PRINT CHR$(22);CHR$(1); 

1310 FOR l=i TO i+2:IF 1>C THEN 1330 
1320 PRINT#W," ";STRINGS(23,:NEXT 
1330 PRINT CHR$(22);CHR$(0);:PRINT#w 
1340 FOR j=l TO a:FOR l=i TO i+2 

1350 e=l*a+j-1:x=e MOD s:y=FIX(e/s):IF y>m THEN 1380 
1360 PRINT#W,USING "####”;e+1PRINT#W,"!";USING "##.##* AAA "; 
x(g(x),y)*f(g(x) ) ; 

1370 PRINT#w,"!";USING e$;t(g(x),y);:PRINT#w,SPC(b); 

1380 NEXT 

1390 PRINT#w:NEXT:IF 1-1<c THEN PRINT:PRINT"Bitte Taste druecken !":CALL 
&BB06 

1400 NEXT .-RETURN 

1410 REM- *** SAVE/LOAD *** 

1420 CLS#1:PRINT#1,CHRS(24);" SAVE/LOAD ";CHR$(24); 

1430 PRINT#1,SPC(10);"1-Speichern";SPC(5);"2-Laden":CLS 

1440 GOSUB 260:IF 1 THEN 210 

1450 IF in$="l" THEN GOSUB 1490:GOTO 1440 

1460 IF in$="2" THEN GOSUB 1600 

1470 GOTO 1440 

1480 REM- *** SPEICHERN *** 

1490 CLS:PRINT CHRS(24);" Speichern ";CHR$(24):PRINT 

1500 INPUT "Name der Datei (max. 8 Buchstaben)";in$:IF LEN(in$)>8 OR 
in$="" THEN 1500 
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1510 in$=in$+".dat":PRINT:PRINT”Bitte warten...” 

1520 OPENOUT in$ 

1530 PRINT#9, m, n 

1540 FOR i=0 TO n:PRINT#9,k(i),z(i),f(i):NEXT 

1550 FOR i=0 TO n:FOR j=0 TO m:PRINT#9,x(i,j),t(i,j):NEXT:NEXT 
1560 CLOSEOUT 

1570 PRINT”Die Daten wurden unter dem Namen * ”;in$;” ’ gespeichert." 

1580 RETURN 

1590 REM- *** LADEN * * * 

1600 CLS:PRINT CHR$(24);" Laden CHR$(24):PRINT 

1610 INPUT "Name der Datei";in$:IF LEN(in$)>8 OR in$="" THEN 1610 
1620 in$=in$+".dat":PRINT:PRINT"Bitte warten..." 

1630 OPENIN in$ 

1640 INPUT #9,m,n 

1650 ERASE x,t:DIM x(n,m),t(n,m) 

1660 FOR i=0 TO n:INPUT#9,k{i),Z(i},f(i):NEXT 

1670 FOR i=0 TO n:FOR j=0 TO m:INPUT#9,X{i,j),t(i,j):NEXT:NEXT 
1680 CLOSEIN 

1690 PRINT”Es wurde die Datei ' ";in$ ; ” ’ geladen." 

1700 RETURN 

1710 REM- * * * PROGRAMMENDE *** 

1720 CLS#1:PRINT#1,CHR$(24);" ENDE ";CHR$(24); 

1730 CLS:PRINT"Zum Beenden eine Taste (ausser i,m,a,s,e) druecken!" 

1740 GOSUB 270:IF 1 THEN 210 
1750 END 

1760 REM *** MASCHINENPROGRAMM ZUR *** 

1770 REM *** INITIALISIERUNG PIO UND STEUERUNG A/D-WANDLER *** 

1780 DATA &3E,&86,&1,&F3,&F8,&ED,&79,&C9,&CD,&1B,&A6,&CD,&37,&A6,&DC,&3F,&A 
1790 DATA &D8,&CD.&9,&BB,&FE.&FC,&C8,&C3.&B,&A6,&DD,&66,&3,&DD,&6E,&2,&7E 
1800 DATA &3D,&1,&F0,&F8,&ED,&79,&3E,&80,&1,&F2,&F8,&ED s &79,&3E,&40,&ED,&79 
1810 DATA &97,&ED,&79,&C9,&ED,&78,&1F,&1F,&CD,&19,&BD,&C9,&1,&F1,&F8,&ED,&7 
1820 DATA &DD,&56,&1,&DD,&5E,&0,&12,&37,&C9 


Liste der wichtigsten Variablen: 


a 

Zeilenzahl bei Tabellenausdruck 

e$ 

Teil einer Eingabe 

esc 

Unterbrechungsflag 

f (i) 

Eichf aktor 

g(i) 

Wiederholung des Kanals in der Kanalfolge 

i, j 

Laufvariablen 

in,in$ 

Eingabe 

k(i) 

Kanal 

1 

Flag,Laufvariable 

m 

m+l=Anzahl der Messungen 

n 

n+l=Anzahl der Kanäle in der Kanalfolge 

t ( i , j ) 

Zeit 

w 

Window 

x(i,j ) 

digitalisierter Wert 

z( i) 

Verzögerung 
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ASSEMBLERLISTING ZUM MASCHINENPROGRAMM (BASICPROGR. ZEILE 1780-1820) 


A6Q0 



20 


ORG 

&a600 

A600 



30 





A600 



40 





A600 



50 





A600 



60 





A600 



70 





A600 



80 





A600 

3E86 


90 

INIT 

LD 

a 

&X10000110 ; 

A602 



100 





A602 



110 





A602 



120 





A602 



130 





A602 

01F3F8 


140 


LD 

bc,&f8f3 ; 

A605 

ED79 


150 


OUT 

(c),a ; 

A607 

C9 


160 


RET 



A608 



170 





A608 

CDOOOO 


180 


CALL 

adress 

A60B 

CD0000 


190 

S1 

CALL 

endcon 

A60E 

DCOOOO 


200 


CALL 

c,input 

A611 

D8 


210 


RET 

c 

; 

A612 



220 





A612 

CD09BB 


230 


CALL 

&bb09 ; 

A615 

FEFC 


240 


CP 

&fc ; 

A617 

C8 


250 


RET 

z 

; 

A618 

C30BA6 


260 


JP 

sl 

A61B 



270 





* * * * 

Zeile 

180 : 

ADRESS 

=&A61B 


A61B 

DD6603 


280 

ADRESS 

LD 

h,(ix+3) ; 

A61E 

DD6E02 


290 


LD 

1,(ix+2) ; 

A621 

7E 


300 


LD 

a 

(hl) ; 

A622 

3D 


310 


DEC 

a 


A623 

01F0F8 


320 


LD 

bc,&f8f0 ; 

A626 

ED79 


330 


OUT 

(c),a ; 

A628 



340 





A628 

3E80 


350 

ADREN 

LD 

a,&X10000000 ; 

A62A 

01F2F8 


360 


LD 

bc,&f8f2 ; 

A62D 

ED79 


370 


OUT 

(c) ,a ; 

A62F 



380 





A62F 

3E40 


390 

STCON 

LD 

a 

4x01000000 ; 

A631 



400 





A631 

ED79 


410 


OUT 

(c) ,a 

A633 

97 


420 


SUB 

a 

; 

A634 

ED79 


430 


OUT 

(c),a 

A636 

C9 


440 


RET 



A637 



450 





X X * * 

Zeile 

190 : 

ENDCON 

=&A637 


A637 

ED78 


460 

ENDCON 

IN 

a 

(C) ; 

A639 

1F 


470 


RRA 



A63A 

1F 


480 


RRA 



A63B 

CD19BD 


490 


CALL 

&bdl9 ; Verzoege 

A63E 

C9 


500 


RET 



A63F 



510 





* * * * 

Zeile 

200 : 

INPUT= 

&A63F 



A63F 

01F1F8 


520 

INPUT 

LD 

bc,&f8f1 ; 

A642 

ED78 


530 


IN 

a 

(C) ; 

A644 

DD5601 


540 


LD 

d,(ix+1) ; 

A647 

DD5E00 


550 


LD 

e 

(ix+0) ; 

A64A 

12 


560 


LD 

(de),a ; digital 

A64B 

37 


570 


SCF 



A64C 

C9 


580 


RET 



Programm :A/D 

-Wandler 




Start : &A600 

Ende : &A64C 



Laenge : 0Q4D 







Analog/Digitalumwandlung 
Copyright 1986 by B.Lang 
Initialisierung PIO: CALL &A600 
Befehl CALL &A608,@KANAL,©WERT 

Initialisierung PIO 
PIO Steuerwort 

Port A = Ausgabe,Betriebsart 0 
Port B = Eingabe,Betriebsart 1 
Port C = C0-C2 Ouittungssignale 
C3-C7 Ausgang 
PIO Steuerregister 
Steuerwort ausgeben 

Steuerung ADC 


wenn A/D-Umwandlung beendet, 
dann Ruecksprung 
Tastaturabfrage 
Break-Taste gedrueckt? 
wenn ja, dann Ruecksprung 

Kanalauswahl A/D 

Adresse der Variablen Kanal 
nach hl laden 
Kanalnr. laden 

PIO Port a adressieren 
Kanal ausgeben 
Adress-Enable A/D 
Adress-Enable A/D=high setzen 
PIO Port c adressieren 
Adress-Enable ausgeben 
Start Conversion A/D 
Adress-Enable A/D=low, 

Start conv. A/D=high setzen 

Start conv. A/D=low 


End of Conversion A/D 


Port C einiesen 


Bit 


l (IBF PIO) ins Carry 
damit ADC-Daten stabil 


Einlesen in Prozessor 

PIO Port b adressieren 
Inhalt lesen 

Adresse der Variablen x(i,j) 
nach de laden 

in wert in variable x ablegen 
Carry setzen 


0 Fehler 
Variablentabelle : 

INIT A600 S1 A60B ADRESS A61B ADREN A628 STCON A62F ENDCON A637 

INPUT A63F 
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Grafikkurs für den 
Schneider, Teil II 

Bisher wurden die ersten kleinen Grafikprogramme gezeigt. Non wer¬ 
den die darin benutzten Techniken erklärt. 


FÜR EINSTEIGER FÜR EINSTEIGER FÜR EINSTEiGER FÜR EINSTEIGER FÜR EINSTEIGER FÜR EINSTEIGER FÜR EINST 



Wir werden uns nun noch einmal 
mit den Programmen vom letzten 
Teil beschäftigen; anschließend 
mit einer der wenigen komplizier¬ 
teren eindimensionalen Figuren: 
dem Kreis bzw. der Ellipse. Da¬ 
durch schaffen wir die Vorausset¬ 
zung für 3D-Grafik, mit der wir uns 
schon sehr bald befassen werden. 

Das erste Programm zeichnete 
einen Fächer, und zwar indem es 
von dem Mittelpunkt der letzten 
Bildschirmzeile aus eine Lime zu je¬ 
dem dritten Punkt in der oberen 
Zeile zog. Das wäre nicht weiter in¬ 
teressant, wenn man dabei nicht 
ein merkwürdiges Muster im Fä¬ 
cher selbst beobachten könnte. 
Das ist der sogenannte Moire- 
Effekt, der auch entsteht, wenn 
man durch zwei gegeneinander 
verschobene Gitter sieht. In unse¬ 
rem Fall handelt es sich bei den 
'Gittern' um die Auflösung des Bild¬ 
schirms und das Muster auf dem 
Bildschirm. Sie können diesen Ef¬ 
fekt mit fast jedem Muster erzeu¬ 
gen, vorausgesetzt, die Auflösung 
ist hoch genug (deshalb Mode 2 
verwenden). Versuchen Sie doch 
zum Beispiel einmal, den ganzen 
Schirm mit einem Raster zu füllen, 
indem Sie jeden zweiten Punkt ein¬ 
schalten (dazu brauchen Sie min¬ 
destens zwei Schleifen: Eine, um al¬ 
le Zeilen zu durchlaufen, eine, um 
die einzelnen Zeilen mit Punkten zu 
füllen). Dabei müssen die Punkte 
natürlich auch horizontal verscho¬ 
ben sein. 

Der 'Diamant' aus dem zweiten 
Programm war im Prinzip dassel¬ 
be, nur wurde hier nicht nur eine Li¬ 
me, sondern jeweils zwei, von der 
Bildschirmmitte aus, gezogen. (Ei¬ 
ne in die obere, die andere in die 
untere Zeile). Außerdem wurden 


auch noch die Farben geändert, 
damit der Diamant auch eckig ge¬ 
nug aussieht. (Achten Sie ganz be¬ 
sonders auf Zeile 90: Hier wird ein 
Zwischenzähler benutzt, damit die 
Farbe erst nach 160 gezeichneten 
Linien gewechselt wird). 


Illusion von 
Bewegung 

Auch das nächste Listing war 
nicht allzu kompliziert: In der 
Hauptschleife wurde der Grafik¬ 
cursor an irgendeine Stelle des 
Bildschirms gesetzt, eine zufällige 
Farbe ausgewählt und dann mit Hil¬ 
fe der relativen Grafikbefehle ein 
25 Punkte breites Quadrat gezeich¬ 
net. 

Richtig schwierig' war eigentlich 
nur das vierte Programm. Es wur¬ 
den mehrere, übereinander ge¬ 
setzte Kreise gezeichnet (wie das 
geht, werden wir gleich noch ge¬ 
nau untersuchen), jeder in einer 
anderen Farbe. Bis dahin also 
nichts Besonderes, aber dann: In 
der folgenden Schleife (Zeilen 
40-60) wurden alle bis auf eine ein¬ 
zige INK auf die Hintergrundfarbe 
gesetzt, mit dem Ergebnis, daß im¬ 
mer nur ein Kreis sichtbar wurde. 
So konnten wir die Illusion einer Be¬ 
wegung erzeugen, und zwar nach 
demselben Prinzip wie bei Film 
und Fernsehen, wo eine Bewegung 
auch aus Einzelbildern zusammen¬ 
gesetzt ist. Denn wenn wir nun eine 
andere INK sichtbar machen, hat 
man den Eindruck, daß der Kreis 
sich bewegt hat, obwohl es sich in 
Wirklichkeit um einen anderen 
handelt. 


Das letzte Programm, der 'Weg in 
die Ferne 1 , zeigt, daß man schon mit 
wenigen Befehlen ein akzeptables 
Bild zuwege bringen kann. Da aber 
keine besonders interessanten 
oder schwierigen Techniken ver¬ 
wendet werden, verzichten wir 
hier auf die Beschreibung. 

Was, Sie wollen einen Kreis 
zeichnen? Sie brauchen ja nur den 
CIRCLE-Befehl zu benutzen, wo ist 
das Problem? Nun, das Problem ist, 
daß wir leider keinen MSX- 
Computer, kein Colour-Geme oder 
eines der vielen Modelle mit einem 
solchen Befehl haben, sondern ei¬ 
nen Computer mit einem der fort¬ 
schrittlichsten BASICs überhaupt: 
den Schneider. Und der kennt so 
einen Befehl nicht. Aber deswegen 
brauchen wir nicht den Kopf hän¬ 
gen zu lassen, mit ein bißchen 
mehr Aufwand kommen auch wir 
an unseren Kreis. Und wir haben 


Kreise und Ellipsen 


dabei nicht einmal solche Proble¬ 
me wie C64-User, die endlose 
Poke-Orgien veranstalten müssen, 
um überhaupt Grafik auf den Bild¬ 
schirm zu bekommen. 

Wie also kommen wir an die 
Koordinaten für die Punkte, aus de¬ 
nen sich der Kreis zusammensetzt? 
Dazu sind ein paar elementare 
Mathe-Kenntnisse nötig: Wir kön¬ 
nen die X-Koordinate durch die 
Cosinus-, die Y-Koordinate durch 
die Sinusfunktion bestimmen. Die 
beiden Funktionen brauchen da¬ 
bei den entsprechenden Winkel 
als Argument. Die so erhaltenen 
Koordinaten sind jedoch auf jeden 
Fall kleiner als 1, also Bruchzahlen 
der Art 0,xxx. Daher müssen wir al- 
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so die Koordinaten noch multipli¬ 
zieren, und zwar mit dem Radius 
den der Kreis haben soll. Zu guter 
Letzt muß man noch die Koordina¬ 
ten des Kreismittelpunkts dazu ad¬ 
dieren, damit der Kreis an der rich¬ 
tigen Stelle steht. In Listing 1 wird 
diese allgemeine Methode ge¬ 
zeigt. 

Eine Ellipse ist nichts anderes als 
ein 'plattgedrückter' Kreis, und sie 
entsteht, wenn wir die X- und Y- 
Koordinaten mit einem unter¬ 
schiedlichen Radius multiplizieren. 
In Listing 2 wird eine Ellipse ge¬ 
zeichnet, indem Y noch einmal 
durch 2 dividiert wird, wodurch 
der Kreis nur halb so hoch wie breit 
ist. Natürlich kann auch X dement¬ 
sprechend modifiziert werden, 
man muß nur darauf achten, daß 
man nicht etwa die 'fertigen' Koor¬ 
dinaten verändert, sondern bevor 
der Kreismittelpunkt dazu addiert 
wird. 


Speed-Up... 


Das Ergebnis, das die Listings 1 
und 2 liefern, ist zwar der erwartete 
hübsche Kreis bzw. die Ellipse, 
aber die Programme sind LÄÄ- 
ÄNGSÄÄÄM Wie bekommt man 
sie nun schneller? Die Lösung zeigt 
das %00-Programmlisting: Wir er¬ 
rechnen nicht für alle 360 Winkel 
die Koordinaten, sondern nur je¬ 
den 12ten. Dazu muß allerdings 
vorher auf Winkelgradmaß umge¬ 
schaltet werden (DEG, probieren 
Sie das auch einmal bei den ersten 
beiden Beispielen aus), denn wir 
müssen die Punkte ja auch noch 
durch Limen miteinander verbin¬ 
den. Das ist aber nur möglich, 
wenn die Punkte auch entlang ei¬ 
ner Kreisbahn gezeichnet werden 
und nicht in der scheinbar wirren 
Reihenfolge wie bei Bogenmaß 
(RAD, Standard). Und auch wichtig; 
Vorher muß der Grafikcursor an 
die richtige Stelle gesetzt werden, 
damit die erste Verbindungslinie 
nicht einfach aus irgendeiner Bild¬ 
schirmecke in den Kreis kommt (al¬ 
so den Grafikcursor an die Stelle 
setzen, die sich bei cos(0) und sin(0) 
ergibt: mittex + radius, mittey)! 

Durch diese Technik wird der 
Kreis so schnell gezeichnet, daß 
man schon fast glaubt, man habe es 
mit einem Maschinenprogramm zu 
tun. Die Schrittweite für den Winkel 
kann natürlich vergrößert (dann 
geht es noch schneller) oder ver¬ 
kleinert werden, aber bei einer zu 
großen Schrittweite wird deutlich, 


daß man eigentlich gar keinen 
Kreis mehr zeichnet, sondern ein 
Vieleck. 


Die ersten Aufgaben 


Sie sollten auf jeden Fall versu¬ 
chen, die Technik des Kreise- 
Zeichnens zu verstehen, schon al¬ 


lem weil wir sie im nächsten Teil 
wieder brauchen werden. Um Ih¬ 
nen dabei zu helfen (und um die 
'alten' Sachen zu wiederholen), ha¬ 
ben wir hier ein paar Testaufga¬ 
ben abgedruckt. Versuchen Sie 
bitte, diese zu lösen; schauen Sie 
nach, wenn Sie irgendwelche Be¬ 
fehle vergessen haben. Ansonsten 
. . . viel Spaß beim Computern! 


10 REM Listing 1 - Kreis zeichnen 
20 MODE 1 

30 mittex=320:mittey*200:radius=100 
40 FÜR winkel*0 TO 360 
50 x=COS (Winkel) 

60 y*SIN (Winkel) 

70 x*x«radius 
BO y*y«radius 
90 x*x+mittex 
100 y=y+mittey 
110 PLOT x,y,l 
120 NEXT Winkel 

10 REM Listing 2 - Ellipse zeichnen 
20 MODE 1 

30 mittex*320 1 mi11ey*200t r ad iua*100 
40 FOR Winkel*0 TO 360 
50 x*COS(Winkel) 

60 y*SIN (Winkel) 

70 x*x»radius 

80 y*y«(radius/2) *< -Das -formt die Ellipse 

90 x*x+mittex 
100 y*y+mittey 
110 PLOT x,y, 1 
120 NEXT Winkel 

10 REM Listing 3 - Schnelles Kreisprogramm 
20 MODE 1 

25 DEBsREM Au-f Minkelgradmass umschalten! 

30 mi ttex*320imittey*200a radi us=100 
35 PLOT mi ttex -t-radi us, mittey 
40 FOR Winkel=0 TO 360 STEP 12 
50 x*COS (Winkel) 

60 y*SIN (Winkel) 

70 x*x«radius 
BO y*y«radius 
90 x*x+mittex 
100 y*y+mittey 

110 DRAW x,y,l '<— nun eine Linie ziehen 
120 NEXT Winkel 
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Bisher haben wir uns sehr aus¬ 
führlich damit beschäftigt, wie 
man Kreise zeichnet, und das 
hatte natürlich auch seinen Grund: 
Denn mit den Funktionen Sinus 
und Kosinus, die dafür notwendig 
waren, kann man auch noch ganz 
andere Gebilde erzeugen, nicht 
nur Kreise. Weil diese Sachen 
aber ziemlich kompliziert sind, 
hier noch einmal das Prinzip in 



Kürze: Um einen Kreis auf dem 
Bildschirm (oder in einem beliebi¬ 
gen Koordinatensystem) zu zeich¬ 
nen, müssen wir irgendwie die 
Punkte ermitteln, durch die der 
Kreis verläuft, d.h. natürlich deren 
X- (also horizontale) und Y- (vertika¬ 
le) Koordinaten. Diese Koordina¬ 


ten bekommt man, indem man Si¬ 
nus und Kosinus eines Winkels er¬ 
mittelt. Der Winkel ist dabei ein 
beliebiger Winkel von 0-360, aus 
denen sich der Kreis ja zusam¬ 
mensetzt. Das heißt aber noch 
nicht, dass wir nun tatsächlich di¬ 
rekt die Koordinaten herausbe¬ 
kommen, mit denen wir Punkte auf 
den Bildschirm PLOTten könnten. 
Es gibt nämlich noch zwei andere 
Faktoren, die das Aussehen des 
Kreises mitbestimmen: Die Größe 
(also der Radius) und seine Lage 
(also die Lage des Mittelpunktes). 
Um diese beiden Faktoren richtig 
beeinflussen zu können, muß man 
wissen, daß Sinus und Kosinus im¬ 
mer die Koordinaten für den soge¬ 
nannten Einlieitskreis ergeben, 
daß heißt: Für einen Kreis, dessen 
Mittelpunkt auf 0,0 liegt und der 
den Radius 1 hat. Um den Kreis auf 
die gewünschte Größe ’aufzublä- 
hen', muß man Sinus/Kosinus vom 
Winkel-Koordinaten mit dem Radi¬ 
us (mit der Größe) multiplizieren. 
Da der Mittelpunkt des Einheits¬ 
kreises 0,0 ist, können einfach die 
gewünschten Mittelpunkt- Koordi¬ 


naten hinzu addiert werden, und... 
die Koordinaten stimmen. Grafik 1 
macht das noch einmal deutlich. 
Genau das gerade beschriebene 
Prinzip wird übrigens in Pro¬ 
gramm Nr. 1 des vorigen Teils ver¬ 
wendet. 


Andere 

Anwendungen 

Daß wir mit den beiden Funktio¬ 
nen nicht nur Kreise zeichnen kön¬ 
nen, haben wir ja schon gesehen, 
als Ellipsen erstellt wurden. Aber 
Ellipsen sind ja praktisch auch nur 
gedehnte oder gestauchte.Kreise, 
die entstehen, wenn Sinus- und 
Kosinus-Werte nicht mit demsel¬ 
ben Radius multipliziert werden. 
Aber mit etwas Phantasie lassen 
sich damit noch ganz andere Sa¬ 
chen machen: Denken Sie sich 
einmal ein ganz normales Qua¬ 
drat. Genau in der Mitte, also 


Listings zum Grafikkurs: 


1 REM Listing Nr.1 

2 REH Polygon 

3 MODE 1:INPUT "Anzahl der Ecken Cz.B. 1B3 :".ecken 

4 PRINT”Ich errechne die Werte...” 

5 DIN exCecken3,eyCecken) 

6 FÜR winkel=0 TO 2 »PI-O.OOl STEP 2*PI/eckBn 

7 z«z+l 

B exCz3-COSCWinkel3*138+320:ey Cz3-SINCWinkel3*1SB+ 
200 

B NEXT Winkel 

10 CLS 

11 FOR a-1 TO ecken-1:farbe-INTCRND*33+l:FOR b-a+1 
TO ecken 

12 PLOT exCa3,ey C a3, Farbe: DRAUJ exCb3,eyCb3 

13 NEXT b,a 


1 REN Listing Nr.2 

2 REN Spirale 

3 NODE 1 

4 Farbe-1 

5 FOR winkel=0 TO 15*PI STEP PI/23 
B winkel2=winkel+2*PI/3 

7 IF Winkel N0D PI-0 THEN farbe-Farbe+1:IF Farbe-4 
THEN Farbe-1 

B PLOT COSCwinkel3*5*winke1+320,SINCWinkel3*5*wink 
el+200,Farbe 

3 DRAU COSCwinkel23*5*winke12+320,SINCwinkel23*5*w 

inkel2+200 

10 NEXT Winkel 
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1 REM Listing Nr.3 
£ REM "Zelt” 

3 nDDE 2:CALL &BC02:INK 0,0:B0RDER 0 

4 FÜR uiinkel=0 TG 2*PI STEP PI/lOO 

5 hv-C0SC2*winkel)*200: winkel2-uiinkel+PI/3 

6 hv2-C0SC2*uiinkBl2)*200 

7 PLOT COSCWinkel}*bv+3£0, SINCwinkel)*hv+200,1 

B DRAU C0SCuiinkBl2)+hv2+32O,SINCuiinkel2)*hv2+200 
9 NEXT winke! 


1 REH Listing Nr.4 

2 REH Tunnel 

3 MODE 2:CALL &BC02:INK 0,0:B0RDER 0 

4 radius^l 

5 DEG.-FOR ofset-10 TO 370 STEP 5 

5 PLOT COSC135+ofset)*radius+3£0,SINC135+ofset}*ra 
dius+200 

7 DRAU COSC45+afset)*radius+320,SINC45+afset3*radi 
us+200 

0 DRAU CQS(-45+ofset)*radius+320,SINC-45+ofset)*ra 
dius+200 

S DRAU C0S(270+ofset)*radius+320,SINC270+ofset)*ra 
dius+200 

10 DRAU C0SC135+ofset)*radius+320,SINC135+ofset)*r 
adius+200 

11 radius=radius+10 

12 NEXT afset 


auf dem Punkt, den man erhält, 
wenn man alle 4 Ecken durch 
Linien miteinander verbindet, 
liegt der Mittelpunkt eines 
Kreises. Dieser Kreis schneidet 
die Kanten des Quadrates. Wenn 
uns der Mittelpunkt des Kreises 
bekannt ist, können wir das Qua¬ 
drat auf zwei Arten beschreiben; 
Einmal durch die Koordinaten der 
4 Eckpunkte, das ist der Normal¬ 
fall. Wir können es aber auch 
durch die Winkel beschreiben, 
die man für Sinus und Cosinus 
braucht, um die Koordinaten der 4 
Eckpunkte zu erhalten: 45, 135, 225 
und 315 Grad. Es erscheint auf den 
ersten Blick umständlicher, immer 
erst die entsprechenden Koordi¬ 
naten ausrechnen zu müssen, aber 
es hat auch einen riesigen Vorteil: 
Wir können das Quadrat um sich 
selbst drehen, einfach indem wir 
jeden der 4 Grundwinkel vergrö¬ 
ßern: Die 4 Eckpunkte werden 
einfach auf einer Linie entlang der 
Kreisbahn geführt! Versuchen Sie 
einmal, ein Programm zu erstellen, 
das 10 Quadrate zeichnet, jedes 
um 30 Grad dem anderen gegen¬ 
über versetzt (verwenden Sie 
DEG). Listing Nr.4 sollte Ihnen ei¬ 
ne Hilfe dabei sein; dort wird ein 
Objekt (es handelt sich allerdings 
nicht ein um Quadrat, da die 4 
Eck Winkel anders sind) um sich 
selbst gedreht und bei jeder Dre¬ 
hung vergrößert; es entsteht der 
Eindruck eines in die Ferne lau¬ 
fenden Tunnels. 


Polygon 


Eine beliebte Computergrafik 
wird von Programm Nr.l erstellt: 
Sie wird erzeugt, indem alle Dia¬ 
gonalen in einem n-seitigen (im 
Programm: ecke-seitigen) Polygon 
gezeichnet werden. Auch das ist 
nur mit Hilfe von Sinus und Kosinus 
möglich, auch wenn die Rechnung 
hier schon wesentlich komplizier¬ 
ter aussieht. Aber im Grunde ge¬ 
nommen ist das Prinzip relativ ein¬ 
fach: Es werden lediglich die 
Koordinaten einer Anzahl von 
Punkten, die auf der Kreisbahn lie¬ 
gen, errechnet, und diese Punkte 
werden dann durch gerade Linien 
miteinander verbunden. Die Punk¬ 
te sind in der fertigen Zeichnung 
die Stellen, an denen sich die Li¬ 
nien am Außenrand des Kreises 
treffen. Das Programm errechnet 
zuerst die Koordinaten der Punkte 


und speichert sie im Feld CXO für 
die X-Koordinaten, und CYO für 
die Y-Koordinaten ab. Erst dann 
werden sie verbunden. Dabei 
wird auch noch die Farbe (zufällig) 
geändert, in der die einzelnen Li¬ 
men gezeichnet werden sollen. 
Dadurch wirkt die Zeichnung in¬ 
teressanter. Auf eine Besonderheit 
(die auch noch für die Programme 
2/3 zutrifft), muß allerdings hinge¬ 
wiesen werden: Das Programm ar¬ 
beitet nicht im Winkelgradmaß, 
wie wir es bisher immer getan ha¬ 
ben (im Winkelgradmaß besteht 
der Kreis aus den Winkelmaßen 
von 0-360, und es wird durch DEG 
eingeschaltet), sondern im Bogen¬ 
maß. Dabei hat ein Kreis die Perio¬ 
de 2*PI, nicht 360. Da unser Rech¬ 
ner normalerweise im Bogenmaß 
rechnet, ist kein spezieller Befehl 
zum Aktivieren nötig, außer wir 
hatten vorher auf Winkelgradmaß 
umgeschaltet: Verwenden Sie 
dann RAD. Wenn Sie in Winkel¬ 
gradmaß arbeiten möchten, er¬ 
setzten Sie die Schleife durch: 
DEG:FOR Winkel = 0 TO 360 STEP 
360/ecke 


Programm Nr. 2 


Auch Programm Nr. 2 erstellt ei¬ 
ne populäre Computergrafik. Es 


handelt sich um eine Art 
Schnecke, zusammengesetzt aus 
einzelnen, schräg liegenden Li¬ 
nien. Das Prinzip ist einfach: Jede 
gezeichnete Linie liegt in ihrem 
Anfangspunkt auf einem Kreis, 
dessen Radius sich allerdings dau¬ 
ernd vergrößert, so daß eine Spi¬ 
rale entsteht. Für den Endpunkt 
der Linie gilt genau dasselbe, nur 
dass der Radius größer und der 
Winkel ein wenig verschoben ist. 
Überlegen Sie einmal, wie Sie 
aus dem Programm ersehen kön¬ 
nen, wieviele Windungen die 
Schnecke hat (schauen Sie sich da¬ 
zu die WINKEL-Schleife an und 
bedenken Sie, daß eine Windung 
ein Kreis ist, also die Periode 2*PI 
hat). 


2* PI 


Jetzt bleibt nur Programm Nr.3 
übrig, aber dabei handelt es sich 
um etwas ganz Besonderes. Um 
ehrlich zu sein: Das, was es zeich¬ 
net, sollte eigentlich ganz anders 
aussehen, aber das jetzige Ergeb¬ 
nis sieht besser aus, als das, was 
ich eigentlich im Sinn hatte. Es ent¬ 
steht eine Art Zelt, und das ist auch 
schon alles, was ich dazu sagen 
möchte. 
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Bei Maze handelt es sich um ein 
3-dimensionales Labyrinth, dem 
der Spieler entkommen muß. Da¬ 
bei erscheint das Innere des La¬ 
byrinths so auf dem Bildschirm, 
ais würde der Spieler durch den 
Monitor ‘hindurch’ die Gänge se¬ 
hen. Es geht darum, den Ausgang 
mit möglichst wenigen Schritten 
zu erreichen. Der Ausgang ist da¬ 
bei ein Teil irgendeines Ganges, 
der an seiner sich dauernd än¬ 
dernden Farbe erkennbar ist. Das 
ist aber noch nicht alles: Man 
wird nämlich auch noch von ir¬ 
gendwelchen unangenehmen 
Zeitgenossen verfolgt, die hinter¬ 
rücks auf einen schießen. Sobald 
man den Knall hört bzw. den Ex¬ 
plosionsblitz sieht, muß man sich 



10 REM ****+ , *‘**‘*** t ***'* m 
20 REM ** MAZE Cc) ** 

30 REM **************** 

HO REM 

50 MEMORY &3FFF:DEFINT a-z 

BO DIM gC6) :PEN 1:PAPER 0:scnre-1000 

70 GOSUB BSO:GDSUB GBO:REM Titelbild und Maze erze 

ugen 

BO PLOT 0,0,1:MODE 1:INK 0,0:B0RDER 0 
30 REM 

100 scrad-SBlCB: REM &h7c5 Fuer den G fe H ! 

110 REM 

120 dis=0:P0KE scrad,&40 
130 RE5T0RE 130 

140 FOR z-Q TO B:READ xlCz),y1Cz),x2Cz),y2Cz),x3Cz 

),y3Cz),x4Cz),y4Cz):NEXT 

150 GOTO 540 

IGO FOR t-1 TO G:CLS:FDR nr~6 TO t+1 STEP -1:GOSUB 
230:GOSUB 320:NEXT:nr-t:GOSUB 270:GOSUB 3B0:NEXT 
170 FOR t=6 TO 1 STEP -1:CLS:FOR nr=6 TO t+1 STEP 
-1:GOSUB 230:GOSUB 320:NEXT:nr-t:GOSUB 270:GOSUB 3 
BO:NEXT 
180 GOTO 1B0 

130 DATA 313,133,320,133,320,200,313,200 
200 DATA 313,133,320,133,320,200,313,200 
210 DATA 307,131,332,131,332,208,307,208 
220 DATA 2B0,173,353,173,353,226,8B0.226 
230 DATA 210,12B,423,126,423,273,210,273 
240 DATA 37,3,602,3,602,330,37,330 
250 DATA 24,0,615,0,615,333,24,333 
260 REM wand nr 1-5 darstellen 
270 REM üJand-Mitte darstellen 

2B0 PLOT xlCnr),ylCnr):DRAU x2Cnr),y2Cnr): DRAüJ x3C 
nr),y3(nr): DRAU x4Cnr) , y4Cnr) : DRALÜ xlCnr ) , y 1 Cnr) : R 
ETURN 

230 REM wand links 1-5 darstellen 

300 PLOT xlCnr) , y 1 Cnr) : DRAU xlCnr-1) , y 1C nr~l ) : DRAlü 
x4Cnr-l) ,y4Cnr-l) : DRAüJ x4Cnr) , y4Cnr) : DRAlü xlCnr), 
ylCnr):RETURN 
310 IF nr-1 THEN RETURN 
320 REM wand 1-5 rechts darstellen 

330 PLOT xBCnr-1) , y2Cnr-l) : DRAU x2Cnr) , y2Cnr) : DRAÜJ 
x3Cnr),y3Cnr):DRAU x3Cnr~l),y3Cnr 1):DRAU x2Cnr-l 
),y2Cnr-l):RETURN 
340 REM ausgang links 1-5 


blitzschnell ducken, um der Ku¬ 
gel auszuweichen, sonst darf 
man seinen eigenen Grabstein 
bewundern. 


So wird gespielt 


Um sich zu bewegen, kann man 
die 4 Cursortasten (die 4 Pfeile 
oben rechts) oder einen Joystick 
benutzen, Jeder der 4 Pfeile dreht 
den Spieler m die entsprechende 
HIMMELSRICHTUNG, d.h. also 
nicht zwangsläufig, daß einen der 
Pfeil nach links auch vor eine evtl, 
linksliegende Abzweigung dreht: 
Wenn man nach Süden schaut, 
muß man dazu den rechten Pfeil 
drücken. Die jeweilige Himmels¬ 
richtung wird im oberen Teil des 
Bildes angezeigt. Um dann einen 
Schritt nach vorn zu machen, muß 
man COPY oder (beim Joystick) 
den Feuerknopf drücken. Es 
bringt nichts, wenn man wie ein 
Berserker auf den Tasten herum¬ 
hämmert, dadurch wird man nicht 
schneller, sondern bringt höch¬ 
stens das Programm durcheinan¬ 
der (es handelt sich nun mal um 
ein BASIC-Programm, und eine 
3D-Darstellung braucht ihre Zeit). 
Rennt man gegen eine Wand, wird 
dies angezeigt (BAMM!). Um zu 
entkommen, braucht man nur den 
blinkenden Gang zu finden und 
auf die entsprechende Stelle zu 
gehen. Je nachdem, wieviele 
Schritte man gebraucht hat (jeder 
Schritt bringt Minuspunkte), bzw. 
wie oft man den Femden entkom¬ 
men konnte (bringt Pluspunkte), ist 
das erzielte Ergebnis. Die Feinde 
machen sich durch Schußgeräu¬ 
sche und Explosionsblitze be¬ 
merkbar. Man muß so schnell wie 
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möglich die ENTER-Taste drük- 
ken, um der Kugel auszuweichen, 
sonst ist das Spiel(-leben) zu Ende. 


Zufällige Labyrinthe 


Der Computer erzeugt vor dem 
eigentlichen Spiel das jeweilige 
Labyrinth, Diesen Vorgang kann 
man auf dem Bildschirm mitverfol¬ 
gen. Im Labyrinth wird die Position 


des Spielers und die des Aus¬ 
gangs durch entsprechende Sym¬ 
bole angezeigt. Nun kann man 
wählen, ob man ein neues Laby¬ 
rinth haben möchte (’N 1 drücken), 
oder ob man sich hineinwagen will 
(’W’ drücken). Dass der Spieler 
diese Wahlmöglichkeit hat, hat 
zwei Gründe: Zum einen kann man 
sich so ein einfacheres oder 
schwierigeres Labyrinth, ganz 
nach Geschmack und Geschick, 
auswählen (es ist natürlich lächer¬ 
lich, wenn der Ausgang nur einen 


Schritt vor der Startposition des 
Spielers ist), zum anderen gene¬ 
riert der Computer aber auch kei¬ 
nesfalls immer sinnvolle Gebilde: 
So ist es u.U. nicht möglich, den 
Ausgang zu erreichen, weil Ver¬ 
bindungsgänge fehlen, oder der 
Spieler ist nicht sichtbar: Es wäre 
natürlich Unsinn, sich in ein sol¬ 
ches Labyrinth zu begeben. An¬ 
sonsten... wenn Sie jetzt noch keine 
Platzangst haben, nach diesem 
Spiel haben Sie sie bestimmt. Viel 
Spaß dabei. tmb 


350 IF sw-1 THEN RETURN ELSE PLOT xlCnr-13, ylCnr-I 
3 :DRAU xlCnr3 ,ylCnr-13 :PL0T x4Cnr-l3 , y4Cnr~l3 : DRAU 
xlCnr3,y4Cnr-13:PLOT xlCnr~13,ylCnr-13:DRAU x4Cnr 
-13,y4Cnr-13:RETURN 
360 REH ausgang rechts 1-5 

370 IF sw-1 THEN RETURN ELSE PLOT x2Cnr-13,yBCnr-1 
3 : DRAU x2Cnr3 , ySCnt—13 : PLOT x3Cnr~l3 , y3(m—13 : DRAtü 
x2(nr3,y3Cnr-l3:PLOT x2Cnr-13,y2Cnr-l):DRAU x3Cnr 
-13,y3Cnr-l3:RETURN 

3B0 IF dis=0 THEN dls-l:0UT 8BC00,1E:0UT &BD00,810 
:POKE scrad,ßCO ELSE dis-0:P0KE scrad,840:OUT SBCO 
0,12;OUT aBD00,S30 
330 RETURN 

400 REH ** Bild aus den 6 Schritten in gC,.3 erzeu 
gen 

410 CLS: sw-O: FOR t-6 TO 1 STEP -1: REM g(63-vorders 
ter schrit.t 

420 IF t-zs THEN PLOT 540,400,3 ELSE PLOT B40.400, 
1 

430 IF sw-1 THEN 4BO:REH sicht versperrt 
440 a-gCt3:nr-t 

450 IF Ca AND 643-64 THEN GOSUB 270: sw-1: GOTO 4B0: 
REM wand mitte 

460 IF Ca AND 1283-128 THEN GOSUB 230 ELSE GOSUB 3 
40:REH wand links 

470 IF Ca AND 323-32 THEN GOSUB 320 ELSE GOSUB 360 
:REH wand rechts 
4B0 NEXT 

430 IF du-1 THEN PEN 2:L0CATE 1B, 2: PRINT”Puhh. . ”; : 
PEN 1 

500 LOCATE 18,1:IF hr-1 THEN PRINT”Uest"; ELSE IF 
hr-2 THEN PR INT "Nord”; ELSE IF hr-3 THEN PRINT"0st 
ELSE IF hr-4 THEN PRINT"Sued"; 

510 SOUND 2,400,5,7,0,0,4 
520 RETURN 

530 REH Hauptschleife »••»»**»**»* 

540 INK 3,RND-27,RND*27:GOSUB 1060:6DSUB 400:GOSUB 
380:du-0 

550 IF INTCRND-9053-1 THEN GOSUB 1400:IF du-0 THEN 
GOTO 1260 ELSE 540:REH erschossen? 

560 IF ox-zx AND oy-zy THEN 1430 

570 IF JDYC03-0 AND INKEYC03O0 AND INKEYC13O0 AN 
D INKEYC23O0 AND INKEY C63<>0 AND INKEYCS3O0 THE 
N 550 

560 IF J0YC03O16 AND INKEYC33O0 THEN 610 
530 IF CgC53 AND 643-64 THEN GOSUB 380:PLOT 0,0,1: 
OLG 1:LOCATE B,14:PEN 2:INK 2,6,3:PAPER 1:PRINT"BA 
HH !”:PEN 1:PAPER 0:S0UND 1,200,20,7,0,0,5:FOR ws- 
1 TO 100:NEXT:INK 1,6:F0R ws-1 TO 100:NEXT:INK 1,2 
4:GOSUB 380:GOTO 610:REH kein Ueiterkommen, Wand i 
m Weg 

600 IF hr-1 THEN ox-HAXCox-1,23 ELSE IF hr-2 THEN 

oy-HAXC2,oy-13 ELSE IF hr-3 THEN ox-HINCdx+1,263 E 

LSE IF hr-4 THEN oy-HINC26,Dy+13 

610 IF CJ0YC03—4 OR INKEYCQ3-03 THEN hr-1 

620 IF CJ0YC03-8 OR INKEYC13-03 THEN hr-3 

630 IF CJ0YCO3-2 OR INKEYC23-03 THEN hr-4 

640 IF CJ0YC03-1 OR INKEYCO3-03 THEN hr-2 

650 score—score-5 

660 IF score<-0 THEN HODE 2:INK 0,0:INK 1,26:PEN 1 
:PAPER 0:PRINT:PRINT"Ahhhh. . . PRINT"Sie sind ZU 1 
ange im Labyrinth herumgelaufen.":PRINT”Nun sind 5 
ie verhungert!”:GOTO 1340 
670 GOTO 540 

680 REH Labyrinth erzeugen 
630 DIH 1SC353:HODE 1 


700 BORDER 1:INK 3,3:PAPER 3:CLS:PAPER 0:INK 0,12: 
INK 1,6:PEN 1 

710 FOR y-1 TO 25:LOCATE 1,y:l$Cy3-STRINGSC27,2073 

:PRINT l$Cy3;:NEXT 

720 FOR x-2 TO 26 STEP 5 

730 FOR y-2 TO 24 STEP 2 

740 IF INTCRND-23-1 THEN LOCATE x,y:PRINT“ 

HIDSCISCy 3,x,53-SPACESC53:SOUND 1,200,2,7,0,0,10 

750 NEXT:NEXT 

760 FOR y-2 TO 22 STEP 2 

770 FOR x-2 TO 26 STEP S 

780 IF INTCRND*53>1 THEN FOR t-y TO y+2:L0CATE x.t 
:PRINT” :HIDSClSCt3,x,13—” NEXT:SOUND 1,200,2, 
7,0,0,11 

730 NEXT:NEXT:INK 2,15,3:SPEED INK S,5:PAPER 3:PEN 
2:LOCATE 30,10:PRINT"N-Nochmal,";:LOCATE 30,11:PR 
INT”W-WeiterLOCATE 30,14:PEN 1:PRINT"Ihre Wahl? 
";:PAPER 0 



800 oy-INTCRND*203+3:IF INSTRClSCu3," "3-0 THEN 80 
0 

BIO ox-1NSTRC1SCy3,” "3:L0CATE ox,oy:PEN 2:PRINT C 
HRSC2S03; 

820 zy-INTCRND*203+3:IF INSTRClSCy3,“ "3-0 THEN 82 
0 

830 zx-INSTRCISCy3,* “3:IF xz-ox AND xy-ay THEN 82 

0 ELSE LOCATE zx,zy:PEN 2:PRINT CHRSC240);:PEN 1 

B40 xa-Q:ya—1:hr-2:REH Himmelsrichtung Nord 

850 aS-INKEY$:IF aS-“” THEN B50 

B60 IF UPPERSCaS3—"W“ THEN RETURN 

B70 GOTO 700 

BBO REH Titelbild 

BSO HODE 1:INK 0,3:B0RDER 3:INK 1,24:INK 2,5:INK 3 

.6 

300 FOR y—15 TO 333 STEP 40:PLOT 0,y:DRAW G40,y,3 
: NEXT 

310 FOR x-0 TD 710 STEP 40::PLOT x-70,0:DRAüJ x,333 
,3:NEXT 
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320 DATA 8,2,-4,2,4,2,-8,2,0,0.5,8,4,-4,2.3,0,-4,0 
, 4, “4,2.3,0,0.5,0, B, 0, -8,0, B,0, -8,0, B, -B, -B, 0,8.5, 
B,0,0.B,0,-B,-3.O.O.B.O,-0,-5,0,0,0,30,39 
330 RESTÜRE 320:z-0 

340 xs“150:FOR ys-230 TO 210 STEP -2:PLOT xs.y3.IN 
TCRND-3)+1: xs-xs+2: RESTORE 320 

SSO READ y, x: IF x<>39 THEN DRAUR x*10, y"20: GOSUB 1 
030:GOTO 950 
3G0 NEXT 

370 PEN 1:LOCATE 11,15:PRINT CHR$ClG4)"TnB ß Compu 
ter Team”; 

3B0 LOCATE 3.22.-PEN 2:FRINT"Druecken Sie eine bell 
ebige Taste 

330 z-l:aS-"":UWILE z<3000 AND a$-”":aS-INKEYS : z-z 
+1:UEND 

1000 IF a$<>"" THEN RETURN 

1010 IF INKEYS-"" THEN INK 1NTCRND-1)+1,RND*27:GOT 
0 1010 
1020 RETURN 

1030 REH Sound bei Titelbild 
1040 z-z*l:IF z-5 THEN z-1 ELSE RETURN 
10S0 SOUND 1,200+RND*400,5,RND-1S:RETURN 
1060 REfl Daten Fuer 1 Bild erzeugen, 

1070 REN je nach Plan und Himmelsrichtung 
1080 zs-93:FOR t-1 TO 6: gCt)-64:NEXT:z-6 
1090 IF hr<>2 AND hr<>4 THEN 1160 


1230 FOR x-BSO TO 330 STEP 4:PLOT x,90:DRAU x,2S0, 
2:NEXT:FOR x-310 TO 330:PL0T X,250:DRAU x,3G0:NEXT 
:FOR y-300 TO 320:PLOT 270.y:DRAU 370,y:NEXT 
1300 FOR x-0 TO 640 STEP 4:PLOT x,0:DRAU x,RND«30+ 
105,1:NEXT 

1310 ENT 1,200,2,1:50UND 1,284,200,15,0,1 
1320 LOCATE 7,23:PAPER 1:INK 4,G:PEN 4:PRINT”Sorry 
PEN 0:PAPER 1:CALL SBBOG 
1330 nOOE 2 

1340 PRINT:PRINT:INK 1,26:BORDER 0:INK 0,0:PRINT M E 
s hat sie erwischtPRINT"Seien 5ie nicht zu depr 
imiertl ”: PRINT: PRINT*'Bitte uaehlen Sie: ” : PRINT"13 
Noch ein Uersuch im selben Feld,":PRINT"2) Spiel v 
on Uorn beginnen,":PRINT”3) Spiel beendena$-” 
1350 aS-INKEYS: IF a$-"** THEN 1350 

1360 IF aS-”l" THEN sccre-500:INK 0,0:B0RDER 0:INK 
1,26:PEN 1:PAPER 0:N0DE 1:GOTO 540 
1370 IF a$-"2" THEN RUN 
1380 IF a$-"3” THEN PRINT"Ok...": STOP 
1330 GOTO 1350 

1400 REN Auf Spieler wird geschossen 

1410 u-INTCRND*10)+30:S0UND 1,400,20,7,0,0,12 

1420 FOR t-1 TO 10:BORDER RND*27:INK 0,RND*27:NEXT 

:INK 0,0:BORDER 0 

1430 du-O:FOR t-1 TO u*10 

1440 IF INKEYC181-0 THEN du-1 



1100 X-OX: y-oy:WHILE Z<>1 AND u>“2:gCz)-0:IF X-ZX 
AND y-zy THEN zs-z 

1110 IF NIDSCl$C u ),x-l,ll<>" " THEN g(z)-120 
1120 IF IIIDlClSCy) ,x, 1) < > *' " THEN g<z)-gCz)+64 
1130 IF MIDSClSCy),x+1,1 )<>" " THEN gCz)-gCz)+32 
1140 z-z-l:IF hr-2 THEN y-y-1 ELSE IF hr-4 THEN y- 
U*1 

1150 UEND:RETURN 

1160 IF hr-3 THEN 1210 ELSE x-ox:y-oy:UHILE Z<>1 A 
ND x>-2:gCz)-0:IF x-zx AND y-zy THEN zs-z 
1170 IF niDSCiSCy+ll,x,1)<>" " THEN gCz)-128 
1180 IF NIDSCISCy),x,1)<>" " THEN gCz)-gCz)+64 
1130 IF niDSClSCy-1) ,x, 1)0" " THEN gCz)-gCz)+32 
1200 z-z~l:x-x-1:UEND:RETURN 
1210 x-dx: y-oy:UHILE z<> 1 AND x<-24:gCz)-0 
1220 IF MIDSClSCy-l),x,l)0" " THEN gCz)-12B 
1230 IF OIDSClSCy),x,1)<>" " THEN gCz)-g<z)+64 
1240 IF niDsClSCy+1),x,1)<>" ” THEN gCz)-gCz)+32 
1250 z-z-1:x-x+1:UEND:RETURN 
1260 RErl Uerloren-Bild anzeigen 

1270 b$-””:FOR t-1 TO 100: bS-b$+INKEY$:NEXT::MODE 
0: INK 3,3:1NK 4,1:INK 1,12:INK 2,0:B0RDER 1 
1280 FDR x-0 TO 640 STEP 4:PLOT x,30:DRAU x,RND"30 
+200,3:DRAU x,339,4:NEXT 


1450 NEXT 

1460 IF du-1 THEN score-score+100 

1470 INK 0,0:BORDER 0 

14B0 RETURN 

1430 REH geschafft... 

1500 bS-“”:FOR t-1 TD 100:b$-bS+INKEYS:NEXT 

1510 PAPER 0:PEN 1:ENU 1,100.1.3:ENT 1,100,-2,3:SO 

UND 1,284,300,1,1,1 

1520 HDDE 0:PRINT CHR$(22)CHRIC1);:FDR t-1 TO 40:P 
EN RND-15:LOCATE RND-14+1,RN0"24+1:PRINT"Sieg!l“;: 
BORDER RND-27:NEXT:BORDER 0:INK 0,0:PRINT CHRSC22) 
CHRSCO); -.LOCATE 2,24: PEN 1:INK 1,26: PRINT" Mifsco 
re"Punkten- ” 

1530 CALL &BB06:PEN 1:flOOE 0:INK 1,0:PAPER 3:CLS:I 
NK 3,6:LOCATE 7,10:PRINT"Nochmal?"; 

1540 CALL SBBOS 

1550 aI-INKEYS:IF aS-"" THEN 1550 ELSE b$-UPPERSCb 
S) 

1560 IF aS-”J" THEN RUN 

1570 flODE 2: PEN 1: PAPER 0:INK 1,26: PRINT”Ok . . . " : ST 
CP 












Schneider spezial 


97 


Anwendung 


VEKTOR¬ 
GRAFIK 
mit dem 
CRC 


Dieses Programm demonstriert 
die Anwendung von Vektorgrafik. 
Das kleine grüne Männchen ent¬ 
stand durch Markierung von mar¬ 
kanten Punkten in einem Koordi¬ 
natensystem. Die Koordinaten die¬ 
ser Punkte wurden in Datazeilen 
an das Programm angefügt. Das 
Programm erledigt die Verbin¬ 
dung der Punkte mit Linien. Dabei 
ist zu beachten, daß das Männchen 
nicht in einem Zug gezeichnet wer¬ 
den kann. Der Stift muß also wäh¬ 
rend des Zeichnens an einen neu¬ 
en Anfangspunkt geführt werden. 
Das Programm erkennt einen sol¬ 
chen neuen Anfangspunkt an ei¬ 
nem vorangestellten Koordinaten¬ 
paar (-1,-1). Ab diesem Punkt setzt 
das Programm solange Punkte, bis 
es das Koordinatenpaar (0,0) liest. 
Ab dieser Stelle werden die Punk¬ 
te wieder mit DRAW verbunden. 

Das Ende der Daten wird mit 
(999,999) markiert. Dadurch ist der 
Anzahl der Daten, außer durch 
den Speicherplatz, keine Grenze 
gesetzt. Auf diese Art und Weise 
können auch komplexere Grafiken 
dargestellt werden. Es eignen sich 
zum Beispiel Landkartenausschnit¬ 
te, da dort die Koordinaten direkt 
am Gradnetz abgelesen werden 
können. 

Eine auf diese Weise erstellte 
Grafik kann theoretisch in jeder 
beliebigen Grösse dargestellt 
werden, da die Koordinaten der 
Punkte vor dem Plotten nur mit ei¬ 
nem Vergrösserungsfaktor multi¬ 
pliziert werden müssen. 

Für Farbmonitorbesitzer ergibt 
sich auch die Möglichkeit, den y- 
Wert der Markierungspunkte zur 
Farbcodierung zu verwenden, da 
diese nur an ihrem x-Wert erkannt 
werden. So kann dann ab einem 
neuen Anfangspunkt auch mit ei¬ 
ner neuen Farbe weitergezeichnet 
werden.(tb) 



10 '** (c) Thomas Barndt ** 

20 '** 1985 ** 

30 ' 

40 MÜDE 1 
50 BORDER 13 
60 DEFINT g-z 
70 INPUT"Mode: " ,m 

80 INPUT"Vergraesserungsf aktor (1 — 4.4):",f 
90 MODE m:m=(m+1)*3—2 
100 ORIGIN 440—40*-f ,240-50*f 
110 CLS 
120 ' 

130 'Malschleife 

140 READ x,y 

150 IF x=999 THEN 200 

160 IF x=-l THEN plotten=-l:PEN y:GOTO 140 
170 IF x=0 THEN plotten=0:GOTO 140 
180 IF plotten THEN PLOT x*f,y*f ELSE DRAW x*f,y 
*f 

190 GOTO 140 
200 ' 

210 LOCATE 4*m,4 
220 PRINT" 

230 LOCATE 5*<n,6 
240 PRINT" 

250 LOCATE 2*m,13 

251 PRINT"********" 

260 LOCATE 2*m,14 
270 PRINT"* 1986 *" 

280 LOCATE 2*m,15 
290 PRINT"********" 

300 LOCATE 6*m,25 

310 PRINT"C(c> THBCSI" 

320 CALL &BB06:RUN 
330 ' 

340 ' *** DATEN fuer Punkte *** 

350 'Ohr 

360 DATA -1,1,20,51,0,0,6,51,5,52,6,53,7,53,11,5 
4 

370 DATA 15,55,16,55,17,56,18,56,19,55,20,54 
380 'Schaedel 

390 DATA 21,55,23,57,26,59,29,60,32,61,36,60,38, 
59,40,58 
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400 'Antenne 

410 DATA -1,1,32,61,0,0,32,75,33,76,33,77,33,78, 
34,79,34,80,35,81,35,82 

420 DATA 36,83,37,84,38,85,39,86,40,86,41,87,42, 
87,43,86,44,86,45,86 

430 DATA 46,85,47,85,48,84,49,84,50,83,50,82,51, 
82,51,83,50,83 
440 'Augen 

450 DATA -1,1,26,52,0,0,29,55,33,56 

460 DATA -1,1,34,54,0,0,35,55,36,56,38,57,39,57 

470 'Nase 

480 DATA -1,1,39,55,0,0,40,56,44,57,49,57,54,56, 
57,55,59,54,60,52,60,51,58,49 
490 DATA 54,48,45,48,46,48,41,49,39,50 
500 'Hals 

510 DATA -1,1,20,51,0,0,20,18 

520 'Oberkiefer 

530 DATA -1,1,26,48,0,0,23,45 

540 DATA -1,1,25,46,0,0,51,46,52,47,51,48 

550 'Zaehne 

560 DATA -1,1,47,46,0,0,46,40,52,41,51,46 
570 DATA -1,1,49,46,0,0,49,41 
580 'Mund 


# 1986 # 

MMXXMXKM 



590 DATA -1,1,25,46,0,0,25,27,26,25,29,24,32,24 
600 DATA 35,25,37,27,41,31,40,12,38,14 
610 'Zunge 

620 DATA -1,1,25,33,0,0,26,34,28,34,30,33,30,31 
630 DATA 29,29,26,29,25,31,25,33,27,46 
640 'Koerper 

650 DATA -1,1,20,18,0,0,19,19,18,19,16,17,14,14, 
13,11,12,8,11,3 
660 DATA -1,1,16,7,0,0,15,3 

670 DATA -1,1,41,19,0,0,42,17,44,11,46,5,47,3 
680 'Haar,Tropfen + Striche 

690 DATA -1,1,22,56,0,0,21,57,20,60,20,62 
700 DATA -1,1,13,45,0,0,11,44,9,43,9,42,10,41,11 
,41,12,42,13,45 

710 DATA -1,1,41,65,0,0,43,69,45,70,46,70,47,69, 
47,68,45,66,41,65 

720 DATA -1,1,17,40,0,0,15,35,15,32,16,28 
730 DATA -1,1,3,50,0,0,4,48,6,47,8,47 
740 DATA 999,999 


MULTIPLAN für den 
Schneider CPC 

Professionelles Planen und Kalku¬ 
lieren mit dem Schneider CPC. 
September 1985, 226 Seiten mit 2 
Abbildungen und 89 Tabellen. DM 
49,-. 

Multiplan wurde ursprünglich 
für das 16 Bit-Betriebssystem MS- 
DOS entwickelt. Inzwischen ist 
aber auch die in diesem Buch be¬ 
schriebene CP/M-Version für den 
Schneider CPC auf dem Markt, 
die den vollen Leistungsumfang 
der 16 Bit-Version enthält. 

Das vorliegende Buch soll eine 
praktische Einführung in den Um¬ 
gang mit Multiplan auf dem 
Schneider CPC geben. Für den 
Leser, der sich erstmals mit einem 
Tabellenkalkulationsprogramm 
beschäftigt, wird zunächst eine 
kurze Einführung in die Arbeits¬ 
weise solcher Planungssysteme 
gegeben. Nach einigen Vorbe¬ 
merkungen zur Inbetriebnahme 
von Multiplan werden anhand von 
praxisnahen Beispielen alle Be¬ 
fehle und Funktionen beschrie¬ 
ben, und zwar in der Reihenfolge, 
die der Arbeit in der Praxis ent¬ 
spricht. In weiteren Abschnitten 
werden die Befehle im Detail be¬ 
schrieben und Leistungen aufge¬ 
zeigt, die für den fortgeschrittenen 
Anwender interessant sind, wie 
zum Beispiel das Verknüpfen meh¬ 
rerer Multiplan-Tabellen. 

Die vielfältigen Einsatzmöglich¬ 
keiten von Multiplan werden in ei¬ 
nem größeren Abschnitt anhand 
von Beispielen vorgeführt. Sie sol¬ 
len den Leser vor allem dazu anre¬ 
gen, eigene Anwendungen mit 
Multiplan zu erarbeiten. Den prak¬ 
tischen Vorführungen schließt sich 
eine Zusammenstellung aller Be¬ 
fehle und Funktionen sowie eini¬ 
ger wichtiger _CP/M-Befehle für 
den schnellen Überblick an. 

Der Autor: Dr. Peter Albrecht, 
geb. 1944, studierte Nachrichten¬ 
technik an der Technischen Uni¬ 
versität München und promovierte 
dort mit einer Arbeit über Mikro¬ 
wellenhalbleiter zum Dr.-Ing.. Da¬ 
nach war er 12 Jahre in verschie¬ 
denen Funktionen bei der NCR 
GmbH tätig. Heute ist Dr. Peter Al¬ 
brecht als Unternehmensberater 
in Augsburg tätig. 
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Der neue Schneider Joyce ist ein Textverarbeitungssystem 
mit dem Betriebssystem CP/M Plus und 256 KByte Haupt¬ 
speicher. Im Lieferumfang enthalten sind die Sprachen BA¬ 
SIC und Logo sowie das Textverarbeitungsprogramm 
LocoScript. 


Die Hardware 


Der eigentliche Rechner befin¬ 
det sich mitsamt allen Netzteilen 
im Monitorgehäuse, wodurch nur 
ein Netzkabel benötigt wird. Dies 
hat leider zur Folge, daß die 
Schrift etwas flackert, was zusätz¬ 
lich mit der Tatsache, daß der Mo¬ 
nitor nicht entspiegelt ist, eine 
eher negative Beurteilung des Bil¬ 
des zur Folge hat. Positiv ist die 
Darstellung von 90x32 Zeichen, 
wodurch das Editieren von Texten 
an Übersichtlichkeit gewinnt. 

Die beiden Handbücher ermög¬ 
lichen dem Einsteiger eine schnel¬ 
le Einarbeitung in das System. Als 
Nachschlagewerk für Fortge¬ 
schrittene sind sie jedoch weniger 
geeignet. 


Das Laufwerk 


Das Diskettenlaufwerk ist ein 
3-Zoll-Gerät in gewohnter Schnei¬ 
der-Manier mit 180 KByte pro Sei¬ 
te. Das optionale Zweitlaufwerk 
kann bis zu 760 KByte auf eine Dis¬ 
kette aufzeichnen. 

Es ist jedoch nicht ohne weiteres 
möglich, die mitgelieferten Disket¬ 
ten mit einem CPC 464 zu lesen. 
Umgekehrt ist es möglich, z.B. 
Logo-Programme vom 464 pro¬ 
blemlos auf den Joyce zu übertra¬ 
gen. Wenn man Programme vom 
Joyce übertragen will, so muß man 
diese zunächst auf eine Diskette 
vom CPC 464 aufzeichnen. Dies ist 
für den Joyce kein Problem. 


Die Tastatur 


Der Joyce hat eine deutsche 
QWERTZ-Tastatur mit deutschen 
Umlauten und Sonderzeichen. Das 
Anschlußkabel zum Monitor ist 
lang genug, so daß das Plazieren 
der Tastatur keine Probleme be¬ 
reiten dürfte. 

Die Tastatur ist leider ähnlich 
wie beim CPC 6128 nicht in sepa¬ 
rate Funktionsblöcke unterteüt. 
Außerdem wird man durch ab¬ 
wechselnd deutsche und engli¬ 
sche Bezeichnungen irritiert. Das 
Klappern der Tasten ist lauter als 
beim CPC 464. 


sowie Proportionalschrift. Im Text¬ 
verarbeitungsprogramm eingege- 
bene, über Tastatur erreichbare 
Sonderzeichen werden ausge¬ 
druckt. Die Stromversorgung er¬ 
hält er durch ein extra Kabel vom 
Monitor. 

Leider konnten wir in keinem 
der beiden Handbücher die Steu¬ 
ercodes finden, über welche die 
verschiedenen Schriftarten einge¬ 
stellt werden können. So dürfte es 
wohl einem BASIC-Programmierer 
etwas schwerfallen, die Möglich¬ 
keiten des Druckers voll auszunut¬ 
zen. 

Schwer herauszufinden war 
auch die Möglichkeit, über die Ta¬ 
stenkombination EXTRA+ PTR ei- 



Der Drucker 


Der unscheinbar aussehende 
Drucker weist alle üblichen 
Schriftarten auf. Zusätzlich bietet 
er eine akzeptable Schönschrift 


Unser Bild zeigt den Drucker des 
PCW8256 

ne Hardcopy des Bildschirms an¬ 
zufertigen. 

Den Joyce kann man mit dem 
Modul CPS-8256, welches eine 
V.24- und eine Centronicsschnitt- 
stelle besitzt, nachrüsten. 
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Die Software 


Nach dem Einschalten des 
Rechners muß zunächst das Be¬ 
triebssystem von der Diskette ge¬ 
laden werden. Das mitgelieferte 
CP/M Plus besitzt zahlreiche 
Dienstprogramme, die das Arbei¬ 
ten mit dem Joyce vereinfachen. 
Unter anderem verfügt man über 
den Macroassembler MAC von Di¬ 
gital Research. 

Wie schon der CPC 6128, besitzt 
auch der Joyce einen HELP-Be- 
fehl, mit dessen Hilfe man sich 
über die wichtigsten CP/M-Dienst- 
programme informieren kann. 

Der Joyce stellt sofort nach dem 
Einschalten eine virtuelle RAM- 
Floppy mit 112 KByte zur Verfü¬ 
gung, welche ein sehr schnelles 
Laden und Speichern von Dateien 
ermöglicht. 


Das BASIC 


Das BASIC der Firma Locomoti- 
ve ist nicht mehr mit den bisheri¬ 
gen Versionen kompatibel. Es 
wird hierzu ein mehr als 380 Seiten 
umfassendes Handbuch mitgelie¬ 
fert. Das sogenannte Mallard- 
BASIC besitzt die komfortable 
Möglichkeit, relative Dateien mit 
Schlüsselwörtern zu verwalten. In 
diesem Zusammenhang ist uns als 
erstes der Befehl SEEKRANK, wel¬ 
cher zum Suchen von Schlüsseln 
verwendet wird, durch seinen et¬ 
was irreführenden Namen aufge- 
f allen. 

Die Verarbeitung von doppelt 
genauen Zahlen mit einer Genau¬ 
igkeit von 16 Dezimalstellen liefert 
einen weiteren Pluspunkt für das 
BASIC. 

Leider stehen keine Grafikbe¬ 
fehle zur Verfügung, so daß die 
Auflösung von 720x256 Punkten 
nur in dem etwas langsameren Lo¬ 
go genutzt werden kann. Auch 
Sound-Befehle sucht man vergeb¬ 
lich; der einzige Ton, den wir dem 
Joyce entlocken konnten, war ein 
helles Piepsen, welches ertönt, 
wenn man versehentlich eine fal¬ 
sche Taste getroffen hat. 

Das BASIC belegt etwa 28 KByte 
des Hauptspeichers, der Bild¬ 
schirmspeicher etwa 22,5K. Wenn 
man die 112K für das Laufwerk M 
abrechnet, bleiben also von den 
gesamten 256K etwas über 90K 


übrig. Im BASIC bleiben aber nur 
etwas über 30K frei. Man muß sich 
also fragen, warum der restliche 
Speicher nicht auch genutzt wird. 


Logo 


Das Logo des Joyce ist weitge¬ 
hend identisch mit dem des CPC 
6128, jedoch steht die wesentlich 
höhere Auflösung von 720x256 
Punkten zur Verfügung. Die Ge¬ 
schwindigkeit hat gegenüber dem 
6128 auch etwas zugenommen. Po¬ 
sitiv ist, daß auch hier jederzeit ei¬ 
ne Hardcopy des Bildschirms an¬ 
gefertigt werden kann. 


Textverarbeitung 


Die Textverarbeitung hat den 
großen Vorteil einer Menuefüh- 
rung, wodurch das Arbeiten etwas 
erleichtert wird. Dennoch benötigt 
man zu Anfang etwas Eingewöh¬ 
nungszeit, um die vielfältigen 
Möglichkeiten voll nutzen zu kön¬ 
nen. So haben wir zum Beispiel ei- 


Vorteile: 

Ausführliche Handbücher (für 
Einsteiger) 

BASIC mit relativen Dateien und 
doppelt genauen Zahlen 

CP/M Plus mit vielen Dienstpro¬ 
grammen 

Drucker mit NLQ und Proportio¬ 
nalschrift 

Kein Kabelsalat 

Nachteile: 

Nicht entspiegelter Monitor 

Tastatur nicht in Blöcke aufge¬ 
teilt 

BASIC ohne Grafik 

Speicher wird in BASIC und Lo- 


nige Zeit gebraucht, bis wir her¬ 
ausfanden, wie man einen Text for¬ 
matiert. 

Es werden zahlreiche Textscha¬ 
blonen und vorformulierte Sätze 
für Briefe und Formulare mitgelie¬ 
fert, welche man sich auch selbst 
erstellen kann. 

Leider ist es nicht möglich, von 
LocoScript in CP/M zu wechseln 
oder umgekehrt, da man, um die 
Textverarbeitung zu starten, den 
Rechner erst ausschalten muß. 
Leider sind die erzeugten Textda¬ 
teien nicht kompatibel zu anderen 
Textverarbeitungsprogrammen, 
so daß man beim Umsteigen von 
einem anderen Schneider auf den 
Joyce seine Texte nicht weiterbe¬ 
arbeiten kann. Auch umgekehrt ist 
dies nur schlecht möglich, da auch 
Steuerzeichen mit gespeichert 
werden. 

Überhaupt ist die Diskettenver¬ 
waltung mit LocoScript einer der 
schwerwiegendsten Kritikpunkte. 
Man muß nämlich, um Disketten zu 
formatieren oder zu kopieren, im¬ 
mer erst CP/M booten. Aber wenn 
man sich erst einmal daran ge¬ 
wöhnt hat, kommt man auch hier¬ 
mit zurecht. 


go nicht voll genutzt 
Textdateien nicht kompatibel zu 
anderen Systemen 
Alles in allem ist der Joyce wohl, 
aufgrund des unzureichenden Mo¬ 
nitors, kein Rechner für die Sekre¬ 
tärin, welche den ganzen Tag Brie¬ 
fe zu schreiben hat, sondern eher 
für Leute, die nur hin und wieder 
etwas schreiben, aber nicht auf 
den Komfort eines guten Textver¬ 
arbeitungssystems verzichten wol¬ 
len. 

Schließlich haben Logo, CP/M 
und BASIC auch noch einiges zu 
bieten, (tb) 


d. cz: tx-t o 3.0 d- xx doppeltem Abs-tand. 

« 

kursiv in Dichte 12 
kursiv in Dichte 17 

ganz klar kann nnn Hoch*• 3 und Tlefmbca^stellea 
Kan Xfl.nn. yo.I 1 uater-s.trelchen 
pd.gr. einzelne. Starte. ua.ters.treichfin 
Fettdruck mit und ohne Unterstreichung 
Doppelter Anschlag 

an kann auch Sonderzeichen darstellen 
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Die Mandelbrotmenge wird als das komplizierteste mathematische Objekt bezeichnet. Erzeugt wird sie je¬ 
doch von einem einfachen Algorithmus. Auf dem Bildschirm dargestellt, ergibt sich eine unzählbare An¬ 
zahl von Mustern, welche, mit geeigneten Farben versehen, durchaus als Computerkunst aufgefasst wer¬ 
den können. 


So einfach der Algorithmus ist, so 
langsam wird er auch vom Com¬ 
puter abgearbeitet. Also etwas 
Geduld sollten Sie schon aufbrin¬ 
gen. Der Algorithmus läßt sich et¬ 
wa wie folgt darstellen: 

10 c = eine komplexe Zahl 

20 c = c 2 + c 

30 if c < = 2 then 20 

Die Iteration wird die Zahl c sehr 
schnell, ohne absehbare Grenze, 
ansteigen lassen. Es gibt jedoch 
eine Menge von Zahlen, welche 
sich anders verhalten. Zum Bei¬ 
spiel die reellen Zahlen zwischen 
-2 und 0,25. Solche Zahlen sind 
Elemente der Mandelbrotmenge. 


Die Entstehung 


Um nun eine dieser Grafiken zu 
erzeugen, berechnet man für je¬ 
den Punkt des Bildschirms eine 
Farbe. Ich habe mich in meinen 
Programmen für MODE 1 ent¬ 
schieden, aber man kann die Ap¬ 
felmännchen natürlich auch in 
MODE 0 mit bis zu 15 Farben er¬ 
zeugen. Die Berechnung geht 
dann auch schneller, da ja nur 
noch die Hälfte der Punkte be¬ 
rechnet werden muß. 

Ein Punkt erhält eine Farbe, 
wenn er nach einer bestimmten 
Anzahl (Tiefe) von Durchläufen ei¬ 


ne bestimmte Grenze nicht über¬ 
schreitet, Überschreitet er diese 
Grenze, so wird mit der bis dahin 
erreichten Tiefe die Farbe nach 
folgendem Algorithmus berech¬ 
net: 

Farbe = (Tiefe MOD Anz. mögl. 
Farben') +1 

In MODE 1 stehen drei Farben 
zur Verfügung, da alle Punkte, wel¬ 
che keine Farbe erhalten, schwarz 
(Farbe 0) bleiben. Die Tiefe kann 
willkürlich gewählt werden. Als 
Grenze wurde die Acht gewählt, 
Sie können jedoch auch mit die¬ 
sem Wert experimentieren. 

Komplexe Zahlen setzen sich aus 
zwei Komponenten zusammen, ei- 
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ner komplexen Zahl zu ermitteln, 
bestimmt man einfach die Länge 
der Strecke vom Ursprung (O + iO) 
des Koordinatensystems bis zu 
dem die Zahl beschreibenden 
Punkt. Nach Pythagoras ergibt 
sich dann: 


Länge = sqr(a 2 + b 2 ) 


Das Quadrat einer komplexen 
Zahl erhält man auch auf recht ein¬ 
fache Weise. Man rechnet: 


(a + ib) 2 = a 2 + 2aib + i 2 b 2 
Da i 2 = -1, können wir schreiben: 
(a+ib) 2 = a 2 —b 2 + 2iab 


Jetzt ist a 2 —b 2 der Realteil und 
2iab der Imaginärteil. Um komple¬ 
xe Zahlen zu addieren, addiert 
man einfach Real- und Imaginär¬ 
teil getrennt. 


nem Realteil und einem Imaginär¬ 
teil. Der Realteil besteht aus einer 
reellen Zahl. Der Imaginärteil be¬ 
steht aus dem Produkt einer reel¬ 
len Zahl und der Wurzel aus -1. Zur 
Darstellung verwendet man die 
Formel ’a + ib‘, wobei i die Wurzel 
aus -1 ist. 

Komplexe Zahlen lassen sich 
einfach in einem Koordinatensy¬ 
stem darstellen, indem man den 
Realteil auf der einen und den 
Imaginärteil auf der anderen Ach¬ 
se abträgt. Um nun die Größe ei- 

100 'Apfelmaennchen fuer den CPC 464 

110 '(c) 1985 

120 * Thomas Barndt 

130 * 

140 'Der Code wurde durch den Software—Team 
150 'Basic—Compiler erzeugt und mit dem 
160 ’Hex1adergenerator weiterfaearbeitet. 

170 ' 

180 PRINT"PLEASE WAIT ..." 

190 MEMORY &A04B 
200 DEFSTR c 
210 DEFINT i,j 
220 DIM c(55) 

230 c< O) ='*21 00 00 39 22 4C AO 21 01 00 7D CD O 
E BC 21 00 00 EB 21 00" 

240 DATA 1227 

250 c( 1)="00 7B 45 4D CD 32 BC 21 01 00 EB 21 0 
E 00 7B 45 4D CD 32 BC'* 

260 DATA 1740 

270 cC 2)="21 02 00 EB 21 14 00 7B 45 4D CD 32 B 
C 21 03 OO EB 21 1A 00“ 

280 DATA 1365 

290 cC 3>="7B 45 4D CD 32 BC CD 6C BB 21 03 00 7 
D CD 90 BB 3E 00 32 21" 

300 DATA 2054 

310 c< 4)='*AC C3 18 Al 21 20 20 20 20 20 41 70 6 
6 65 6C 6D 61 65 6E 6E" 

320 DATA 1760 

330 c ( 5) =*'63 68 65 6E 20 62 79 20 54 48 42 43 5 

3 20 31 39 38 35 21 F6" 

340 DATA 1595 

350 c < 6)="AO CD B8 A4 CD AE A4 3E 00 32 21 AC C 
D AE A4 3E 00 32 21 AC" 

360 DATA 2433 

370 c( 7)="CD AE A4 3E 00 32 21 AC CD AE A4 3E 0 
O 32 21 AC C3 48 Al 06" 

380 DATA 2154 

390 c( 8) =‘*58 6D 69 6E 20 3A 21 41 Al CD B8 A4 3 
E 00 21 .A4 AC 77 32 21" 

400 DATA 1947 

410 c( 9)="AC CD oA BD CD AE A4 21 01 AO CD DB A 

4 3E 00 32 21 AC C3 72" 

420 DATA 2575 

430 c(10)="Al 06 58 6D 61 78 20 3A 21 6B Al CD B 
8 A4 3E 00 21 A4 AC 77" 

440 DATA 2075 

450 c ( 11)="32 21 AC CD 3A BD CD AE A4 21 06 AO C 
D DB A4 3E 00 32 21 AC" 

460 DATA 2354 

470 c <12)="C3 9C Al 06 59 6D 69 6E 20 3A 21 95 A 
1 CD B8 A4 3E 00 21 A4" 

480 DATA 2176 

490 c <13)="AC 77 32 21 AC CD 3A BD CD AE A4 21 0 
B AO CD DB A4 3E 00 32" 

500 DATA 2445 

510 c<14)="21 AC C3 C6 Al 06 59 6D 61 78 20 3A 2 
1 BF Ai CD B8 A4 3E 00“ 

520 DATA 2270 

530 c(15)="21 A4 AC 77 32 21 AC CD 3A BD CD AE A 

4 21 IO AO CD DB A4 3E" 

540 DATA 2597 

550 c (16) = '*00 32 21 AC C3 FO Al 06 54 69 65 66 6 

5 3A 21 E9 Al CD B8 A4" 


560 DATA 2388 

570 c(17)="3E 00 21 A4 AC 77 32 21 AG CD 3A BD C 
D AE A4 CD CB A4 22 15" 

580 DATA 2427 

590 c(18)="A0 21 06 AO CD EF A4 EB 21 01 AO EB C 
D 5B BD EB 21 17 AO CD" 

600 DATA 2772 

610 cC19)="3D BD 21 17 AO CD EF A4 EB C3 2F A2 0 
O 00 80 1F 89 21 2A A2" 

620 DATA 2246 

630 c(20)="EB CD 64 BD EB 21 17 AO CD 3D BD 21 1 
Ö AO CD EF A4 EB 21 OB" 

640 DATA 2731 

650 c(21> ="AO EB CD 5B BD EB 21 IC AO CD 3D BD 2 

1 IC AO CD EF A4 EB C3" 

660 DATA 3050 

670 c(22)="61 A2 OO 00 00 47 88 21 5C A2 EB CD 6 

4 BD EB 21 IC AO CD 3D" 

680 DATA 2204 

690 c(23)="BD 21 01 AO EB 21 21 AO CD 3D BD 21 1 
0 AO EB 21 26 AO CD 3D" 

700 DATA 2240 

710 c(24)="BD 21 00 00 22 2B AO EB 21 8F 01 EB C 
D C4 BD CA AC A2 F5 21" 

720 DATA 2510 

730 c (25) =‘‘02 00 11 00 00 CD C4 BD FA A8 A2 Fl F 

2 7D A4 C3 AC A2 Fl FA" 

740 DATA 29ß1 

750 c(26)="7D A4 00 21 00 00 22 2D AO EB 21 7F 0 
2 EB CD C4 BD CA D6 A2" 

760 DATA 2361 

770 c(27)="F5 21 02 00 11 00 00 CD C4 BD FA D2 A 

2 Fl F2 4D A4 C3 D6 A2" 

780 DATA 2804 

790 c(28)="F1 FA 4D A4 00 21 OO 00 22 2F AO C3 E 

5 A2 00 00 00,23 00 21" 

800 DATA 1665 

810 c(29)="E0 A2 EB 21 31 AO CD 3D BD C3 F7 A2 O 
O 00 OO 28 00 21 F2 A2" 

820 DATA 2399 

830 c(30)="EB 21 36 AO CD 3D BD C3 09 A3 00 00 0 
0 28 00 21 04 A3 EB 21” 

840 DATA 1812 

850 c(31)="3B AO CD 3D BD C3 1B A3 00 00 00 28 0 
0 21 16 A3 EB 21 40 AO" 

860 DATA 1809 

870 c(32)="CD 3D BD 21 3B AO CD EF A4 EB 21 40 A 
O EB CD 58 BD EB 21 45" 

880 DATA 2861 

890 c(33)="AO CD 3D BD 2A 2F AO EB 2A 15 AO EB C 
D C4 BD F2 03 A4 21 45" 

900 DATA 2650 

910 c(34)="A0 EB C3 54 A3 00 00 00 00 84 21 4F A 

3 EB CD 6A BD F2 03 A4" 

920 DATA 2388 

930 c(35)="C3 66 A3 00 00 00 00 82 21 61 A3 CD E 
F A4 EB 21 36 AO EB CD" 

940 DATA 2413 

950 c (36) =‘'61 BD EB 21 36 AO CD 3D BD 21 36 AO C 
D EF A4 EB 21 31 AO EB" 

960 DATA 2790 

970 c(37)="CD 61 BD EB 21 36 AO CD 3D BD 21 36 A 
O CD EF A4 EB 21 26 AO" 
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Damit jeder Besitzer eines 
Schneiders die Apfelmännchen 
erzeugen kann, veröffentlichen 
wir drei Versionen, Die BASIC- 
Version sollte auf allen Schneidern 
laufen. Ebenso die Pascal-Version, 
wenn Sie ein grafikfähiges Pascal 
besitzen. 

Das Maschinensprachepro¬ 
gramm wurde mit dem BASIC- 
Compiler (Software-Team) für den 
CPC 464 erzeugt und läuft auch 
nur auf diesem. Sie läuft wesent¬ 
lich schneller als die reine BASIC- 
Version und sollte, wenn Ihr Pascal 


nicht schneller ist, zur Erzeugung 
von Apfelmännchen mit grösserer 
Tiefe verwendet werden, da diese 
oft mehrere Stunden in Anspruch 
nehmen. Dabei ist unbedingt dar¬ 
auf zu achten, daß die ersten vier 
einzugebenden Werte mit Dezi¬ 
malpunkt eingeben werden. Die 
Tiefe muß ohne Punkt eingegeben 
werden. 

Die Farben können im BASIC- 
und im Pascalprogramm leicht an 
einen Farbmonitor angepasst wer¬ 
den. Im Maschinensprachepro¬ 
gramm ist dies nur möglich, wenn 


Sie die Stellen, an welchen die 
Farben definiert werden, heraus¬ 
finden und durch „poken" verän¬ 
dern. 

Um die ,,Urform" aller Apfel¬ 
männchen zu erhalten, geben Sie 
folgende Koordinaten ein: 


-0.7/ 2.1/ -1/ 1/ 30 


Nun können Sie, wie mit einer 
Lupe, einzelne Ausschnitte dieses 


980 

DATA 2749 








1400 

990 

c(38)= "EB CD 5B BD EB 21 

36 

AO 

CD 

3D 

BD 

21 

3 

1410 


B AO CD EF A4 EB 21 40" 








1420 

1000 

DATA 2849 








1430 

1010 

c(39)="A0 EB CD 5B BD EB 

21 

31 

AO 

CD 

3D 

BD 

2 

1440 


1 31 AO CD EF A4 EB 21" 








1450 

1020 

DATA 2930 








1460 

1470 

1030 

c(40)="21 AO EB CD 5B BD 

EB 

21 

31 

AO 

CD 

3D 

B 


D 21 31 AO CD EF A4 EB" 








1480 

1040 

DATA 2930 








1490 

1050 

c(41)=“21 31 AO EB CD 61 
D BD 21 36 AO CD EF A4" 

BD 

EB 

21 

3B 

AO 

CD 

3 


1060 

DATA 2765 









1070 

c(42)="EB 21 36 AO EB CD 
D 3D' BD 2A 2F AO 23 22" 

61 

BD 

EB 

21 

40 

AO 

C 


1080 

DATA 2473 









1090 

c(43)="2F AO C3 25 A3 2A 
B CD C4 BD C2 81 A4 21" 

2F 

AO 

EB 

2A 

15 

AO 

E 


1100 

DATA 2654 








10O 

1110 

c(44)="00 00 22 4A AO 21 

21 

AO 

CD 

EF 

A4 

EB 

2 

110 


1 17 AO EB CD 58 BD EB" 








120 

1120 

DATA 2505 








150 

1130 

c(45)="21 21 AO CD 3D BD 

2A 

4A 

AO 

7D 

CD 

DE 

B 

160 


B 2A 2D AO EB 2A 2B AO" 








170 

1140 

DATA 2423 








180 

1150 

c(46)="CD EA BB 2A 2D AO 

EB 

21 

02 

00 

CD 

AC 

B 

190 


D 22 2D AO C3 B3 A2 OO" 








200 

1160 

DATA 2484 








210 

1170 

c(47 > = "21 01 AO EB 21 21 

AO 

CD 

3D 

BD 

21 

26 

A 

220 


0 CD EF A4 EB 21 IC AO" 








230 

1180 

DATA 2405 








240 

1190 

c(48)="EB CD 5B BD EB 21 

26 

AO 

CD 

3D 

BD 

2A 

2 

250 


B AO EB 21 02 00 CD AC" 








260 

1200 

DATA 2533 








270 

1210 

c(49)="BD 22 2B AO C3 89 

A2 

00 

C3 

99 

A4 

2A 

2 

280 


F AO EB 21 03 00 EB CD" 








290 

1220 

DATA 2392 








300 

1230 

c(50)="BB BD 22 4A AO 2A 

4A 

AO 

23 


4A 

AO 

C 

310 


3 17 A4 2A 4C AO F9 C9" 








320 

1240 

DATA 2333 








330 

1250 

c <51> = "E5 21 56 C3 22 4E 

AO 

CD 

AA 

A4 

El 

C9 

D 

340 


F 4E AO C9 3E OD CD 9E" 








350 

1260 

DATA 2380 








360 

1270 

c(52)="A4 3E OA C3 9E A4 

7E 

B7 

C8 

23 

47 

7E 

2 

370 


3 C5 E5 CD 9E A4 El CI" 








380 

1280 

DATA 2900 








390 

1290 

c(53)="05 C2 BD A4 C9 21 

A3 

EC 

22 

4E 

AO 

21 

A 

400 


4 AC CD AA A4 2A C2 BO" 








410 

1300 

DATA 2777 








420 

1310 

c(54)="C9 E5 21 A3 EC 22 

4E 

AO 

21 

A4 

AC 

CD 

A 

430 


A A4 11 C2 BO El C3 3D" 








440 

1320 

DATA 2910 








450 

1330 

c(55)="BD EB 21 C2 BO 3E 
D 00 00 00 00 00 OO 00" 

05 

32 

CI 

BO 

C3 

3D 

B 

460 

1340 

DATA 1758 








470 

1350 









480 

1360 

RESTORE 








490 

1370 

ad r =&A0A2 








500 

1380 

FOR i=0 TO 55 








510 

1390 

c (i )="00"+c (i ) 








520 


sum=0:READ pruefsumme 
FOR j=l TO 20 

we? rt=VAL("V+MID* (c (i ) ,3*j,2) ) 

POKE adr.wert 
aör=adr+1 
sum=5uni+wert 
NEXT j 

IF sum<>pruefsumme THEN PRINT"Fehler in c< 
i : END 



'Apfelmaennchen 
<c> 1985 

THOMAS BARNDT 
MODE 1 

DEFINT z , s, t, p 
INK 0,0 
INK 1,14 
INK 2,20 
INK 3, i.L 
CLSsPEN 3 

PRINT TAB(5)"Apfelmaennchen by THBCS 1985" 

PRINT:PRINT:PRINT 

INPUT"Xmin :",xmin 

INPUT"Xmax :",xmax 

INPUT"Ymin :",ymin 

INPUT"Ymax :",ymax 

INPUT"Tiefe:",tmax 

dx= (xmax-xmin)/319 

dy=(ymax—ymin)/199 

cx=xmin 

cy=ymax 

FOR zeile=0 TO 399 STEP 2 
FOR spalte=0 TO 639 STEP 2 
tief g=0 

xwert-O:ywert=0 
x quad=0:yquad=0 

WHILE (tiefe<tmax) AND (xquad+yquad<8) 
ywert=2*xwert*ywert-cy 
xwert=xquad-yquad-cx 
x quad=f:wert*xwert 
yquad=ywert»ywert 
ti efe=tiefe+1 
WEND 

IF tiefe=tmax THEN pcal=0 ELSE 
fe MOD 3)+1 pcol=(tie 

cx=cx+dx 

PLOT spalte,zeile,pcol 
NEXT 
cx=xmin 
cy=cy-dy 
NEXT 

WHILE INKEY$="":WEND 
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Apfelmännchens vergrößern, in¬ 
dem Sie einfach die neuen Koordi¬ 
naten schätzen und ausprobieren. 
Auffällig ist hier die Selbstähnlich¬ 
keit der entstehenden Figuren. 
Probieren Sie zum Beispiel einmal 


den folgenden Ausschnitt aus der 
Spitze des Apfelmännchens: 

1 . 67 / 1 . 86 /- 0 . 75 / 0 . 75/40 

Deutlich ist hier das Apfelmänn¬ 
chen wiederzuerkennen. Bei der 


Wahl eines neuen Ausschnitts soll¬ 
ten Sie darauf achten, daß Sie ei¬ 
nen Rand der jeweils vorherge¬ 
henden Grafik vergrößern, da 
dort die schönsten Bilder entste¬ 
hen. tb 


1 PROGRAM apfelmaennchen(input,output); 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


VAR xmax,xmin, 
ymax,ymin, 
dx,dy, 
cx,cy, 

xwert,ywert, 
xquad,yquad :real; 
tiefe, 

spalte,zeile, 
punkte, 
col , 

tiefemax :integer; 


Xmin /Xmax /Y m in /V-nax /Tiefe 

/O.5602/0. 

. 1 / 0 . 2 / 

/0.09621/0.10067/150 



15 -Cab hier werden die Prozeduren f 

16 {Grafikbefehle eingeschlossen 

17 £$F plot .chnJ 

18 £$F mode .chn> 

19 {$F ink .chn> 

20 £$F pen . chn> 

21 
22 

23 BEGIN 

24 mode(2); 

25 ink<3,26,26); 

26 ink(2,20,20); 

27 ink (1,14,14); 

28 ink(0,0,0); 

29 pen(3); 

30 writeln('Apfelmaennchen 
by THBCS 1985'); 

31 write('xmin:');read(xmin); 

32 write('xmax:');read(xmax); 

33 write<'ymin:');read(ymin); 

34 write('ymaxs');read(ymax); 

35 write('Tiefe:');read(tiefemax) 

36 mode(1); 



37 

dx:=(xmax-xmin)/319; 

49 

BEGIN 

38 

dy:= (ymax-ymin)/199; 

50 

ywert:=2*xwert*ywert~cy; 

39 

cx:=xmin; 

51 

xwert:=x quad-yquad-cx; 

40 

cy:=ymax; 

52 

xquad:=xwert*xwert; 

41 

FÜR zeile:=0 Tü 199 DO 

53 

yquad:=ywert*ywert; 

42 

BEGIN 

54 

tiefe:=tief e+1 

43 

FOR spalte:—0 TO 320 DO 

55 

END; 

44 

BEGIN 

56 

IF tiefe=tiefemax THEN col:» 

45 

tiefe:-0; 

57 

ELSE col:=(tiefe MOD 3) +1 

46 

xwert:=0; ywert:=0; 

58 

cx:=cx+dx; 

47 

xquad:=0; yquad:=0; 

59 

plot((spalte)*2,zeile*2,col) 

48 

WHILE (tiefe<tiefemax) 

60 

END; 


AND (xquad+yquad<8) DO 

61 

cx:=xmin; 



62 

cy:=cy-dy 



63 

END 



64 

END. 
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Das 

fliegende 

Auge 


Das Super-Arcade-Spiel für Hubschrauber-Fans 


Ziel des Spiels ist es, möglichst 
viele Männchen zu retten und da¬ 
bei möglichst viel Geld zu verdie¬ 
nen. Man steuert dazu den Hub¬ 
schrauber so neben das Männ¬ 
chen, daß dieses von vorne in den 
Hubschrauber einsteigen kann. 
Nach Betätigen des Feuerknopfes 
muß man dann zur Erde fliegen 
und das Männchen, wieder durch 
Betätigen des Feuerknopfes, aus¬ 
steigen lassen. Wenn man die oben 
im Bild angezeigte Mindestanzahl 
von Männchen gerettet hat und 
sich keines mehr auf dem Dach be¬ 
findet, wechselt das Bild. Die 
Schwierigkeitsstufe bestimmt die 
Zeit, die von der Aufnahme eines 
Männchens bis zum Erscheinen ei¬ 
nes neuen verstreicht. Für jedes 
gerettete Männchen erhält man 
200, — DM. Jeder zerstörte Hub¬ 
schrauber kostet 1500,— DM. Das 
Spiel ist für einen Grünmonitor ge¬ 
schrieben, jedoch ist es für Farb¬ 
monitorbesitzer nicht schwer, in 
Zeile 120 die Farben zu ändern. Er¬ 
fahrenere Programmierer können 
sich mit dem im Handbuch abge¬ 
druckten Text- und Windowplaner 
auch leicht neue Screens ausden¬ 
ken. Dazu muß nur die Variable 
anzscreen erhöht werden und die 
entsprechenden Datazeilen einge¬ 
fügt werden. Die Datazeilen für die 
Häuser bestehen jeweils aus den 
Koordinaten links, rechts, oben, un¬ 
ten,... (usw.). Die obere Zeile ist für 


io ' *************************************** 



* 




20 

* 

** 

Copyright by 

* 

30 

0 

* 

** 

Thomas Barndt 

* 

40 

* 

** 

Sc 

* 

50 

* 

** 

Frank Thielen 

* 

60 

* 

*************************************** 


70 ' 

80 SYMBOL AFTER 199 
90 GDSUB 1530:GOSUB 1430 
100 ENV 1,15,8,15,1,1,0 
110 MODE 1 

120 INK 0,0:INK 1,26:INK 2,17:INK 3,22 
130 PEN 1:BORDER O:PAPER O 

140 LOCATE 10,12:PRINT"H EL I COPTER" 

150 LOCATE 20,15:PRINT"by THBCS" 

160 PEN 3 

170 LOCATE 1,23:PRINT CHR$(164);" 4/85" 

180 LOCATE 15,10:PRINT"N.Y.City" 

190 FOR i=0 TO 2000:NEXT 
200 CLS 

210 FOR i=1 TO 24 
220 READ inst* 

230 PRINT inst* 

240 NEXT 

250 WHILE INKEY*< >" ":WEND 
260 CLS 

270 LOCATE 3,5:PRINT"Schwierigkeitsstu-f e 
Zeit" 

280 LOCATE 3,9:PRINT" 1 1 

1 sec" 
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290 LOCATE 3,11:PRINT" 2 

9 sec" 

300 LOCATE 3,13:PRINT" 3 

7 sec" 

310 PEN 1 

320 LOCATE 13,23:PRINT"Ihre Wahl ?" 

330 ' 

340 ' 

350 ' *** Variablen initialisieren *** 

360 * 

370 DEFINT a-g,i-z 

380 DEFSTR h 

390 WHILE htest*>”3" OR htest$<"1":htest$= INKEY* 
: WEND 

400 ON VALthtest*) GOTO 410,420,430 


410 z eit=550:GOTO 440 
420 z eit=450:GOTO 440 
430 zeit=350 
440 CLS 
450 ' 

460 DIM bild(39,25) 



die dunklen und die untere für die 
hellen Häuser. In jeder Zeile ste¬ 
hen 16 Zahlen für vier Häuser. 

Interessant an der Programmie¬ 
rung ist sicher die Entstehung des 
Hubschraubers. Dieser ist einfach 
in einer Stringvariablen abgelegt 
und besteht aus sechs selbstdefi¬ 
nierten Zeichen und vier Steuerzei¬ 
chen. Zuerst kommen drei selbst¬ 
definierte Zeichen, dann einmal 
Cursor nach unten (CHR$(10)) und 
dreimal Cursor nach links 
(CHR$(8)). Darauf folgen wieder 
drei sichtbare Zeichen, wodurch 
der Hubschrauber insgesamt 
scheinbar aus sechs Zeichen be¬ 
steht. Die relativ hohe Geschwin¬ 
digkeit des Hubschraubers resul¬ 
tiert aus der kurzgehaltenen 
Hauptschleife ab Zeile 1200 und 
der bevorzugten Verwendung von 
Integervariablen. Integervaria¬ 
blen benötigen weniger Speicher¬ 
platz als Realvariablen und können 
daher vom Rechner schneller ver¬ 
arbeitet werden. Das Männchen 
wird in einem durch einen Inter¬ 
rupt auf gerufenen Unterpro¬ 
gramm auf das Dach gesetzt. 


anzscreen=4 
max hub=3 

FOR screen-0 TO anzscreen 
FÜR i=0 TO 7 

READ li(i,screen) 

READ reti,screen) 

READ ab(i,screen) 


550 NEXT i 
560 NEXT screen 
570 FOR i=0 TO anzscreen 
580 READ x <i>,y(i) 

590 NEXT 

600 FOR i=0 TO anzscreen 
610 READ xm(i),ym(i) 

620 NEXT 

630 FOR i*=0 TO anzscreen 
640 READ anz(i> 

650 NEXT 

660 screen=0:anzhub=0:konto=0 
670 h*=hub*(2) 

680 htex*="SCREEN" 

690 • 

700 ' *** Screen aufbauen *** 

710 • 

720 DI 

730 IF screen>anzscreen GOTO 2660 
740 ERASE bild 
750 DIM bild(39,25) 

760 FOR i=0 TO 34 
770 bild(i,l)~-1 
780 bild(i,2)=—1 
790 NEXT 

800 FOR j-0 TO 25 
810 bild<0,j)=-l 
820 bild<34,j)=—1 
830 NEXT 
840 CLS 
850 ' 

860 ‘ Ausgabe 

870 PEN 3 

880 LOCATE 1,2:PRINT 
890 PEN 1 

900 LOCATE 2,1:PRINT 
910 LOCATE 8,1:PRINT 
920 LOCATE 15,1:PRINT"Maney "Skonto 
930 LOCATE 29,1:PRINT"Minimum";anz(screen) 
940 FOR i=2 TO 12 STEP 2 
950 LOCATE 40,i+4 
960 PRINT MID*(htex*,i/2,1) 

970 LOCATE 40,i+5 
980 PRINT - “ 

990 NEXT 

JOOO LOCATE 40,19:PRINT USING“#";screen+1 
1010 • 

1020 ' Haeuser aufbauen 

1030 FOR z=0 TO 7 

1040 IF z >3 THEN PEN 3:ELSE PEN 2 


der Informationen 

STRING*(40,CHR*(227)) 

CHR*(250):gerettet 
hub*(2);anzhub+1 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 

12B0 

1290 

1300 

1310 

1320 

1330 

1340 

1350 


1360 

1370 

1380 

1390 

1400 

1410 


links=Ii(z,screen) 
rechtste (z , screen) 
aben=ob(z,screen) 
unten=un(z,screen) 
GOSUB 2560 
NEXT z 
BORDER IO 
FDR i=l TO 34 
bi1d(i,25)=0 
NEXT 
PEN 1 

x =x(screen):y=y(screen) 
GOSUB 1930 
EI 


**** HAUPTPROGRAMM **** 
*************************** 


LOCATE x,y:PRINT h* 
xl=x:yl=y 
ja=J0Y(0) 

v— (1 AND jo=2)-(l AND jo*=l) + (l AND jo=6)-(l 

AND jo=5) + ( 1 AND jo=10)-(l AND jo=9) 

w=(l AND jo=8)—(1 AND jo=4)+(l AND jo=9)-(l 

AND jo=5)+(l AND jo=10)-(l AND ja=6) 

hub*(1> =h* 

h*=hub*(w+l) 


y=y+v 

x=x+w 

IF y>24 THEN y=24 

SOUND 1,700+v*300,8,O,1,,1 

IF bild(x,y) OR bild<x+l,y) OR bild(x+2,y) 0 
R bild(x,y+l) OR bi1d(x+1,y+l) OR bild(x+2,y 
+1) THEN GOTO 2300 
IF jo=16 THEN 2110 
LOCATE x1,y1:PRINT hub* 

GOTO 1240 


• **** HUBSCHRAUBER ZUSAMMENSETZEN *** 


1420 - 

1430 ht*-CHR*(10)+STRING*(3,CHR*(8)) 

1440 hub *=STRING*(3,CHR*(32))+h t *+STRING*(3,CHR*( 
32) ) 

1450 hub*(2)=CHR*(200)+CHR*(201)+CHRS(202)+ht*+CH 
R*(203)+CHR*(204)+CHR*(205 > 

1460 hub*(O)=CHR*(207)+CHR*(208)+CHR*(209)+ht*+CH 
R*(210)+CHR*(211)+CHR*(212) 
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■h * 


1470 

1480 

1490 

1500 

1510 

1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
16B0 
1690 
1 700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 

iaoo 

1810 

1820 

1830 


**# EXPLOSION ZUSAMMENSETZEN *** 

hx *(O)=CHR* <2131+CHR* (214)+CHR* (215)+ht *+CHR 
*(216)+CHR*(217)+CHR*(218) 

hx*(1)=CHR*<219)+CHR*(220>+CHR*(221)+ht*+CHR 
*(222)+CHR*(223)+CHR*(224) 

RETURN 


**** SYMBOLE DEFINIEREN **** 

' HUBSCHRAUBER RECHTS 
SYMBOL 200,1,0,0,192,160,144,143,128 
SYMBOL 201,255,1,3,12,48,192,0,0 
SYMBOL 202,255,0,224,88,68,34,18,13 
SYMBOL 203,127,0,0,0,0,1,0,0 
SYMBOL 204,0,128,127,16,16,255,0,0 
SYMBOL 205,1,6,248,32,33,254,0,0 

HAUS 

SYMBOL 206,255,255,195,195,195,195,255,255 

HUBSCHRAUBER LINKS 
SYMBOL 207,255,0,7,26,34,68,72,176 
SYMBOL 208,255,128,192,48,12,3,0,0 
SYMBOL 209,128,0,0,3,5,9,241,1 
SYMBOL 210,128,96,31,4,132,127,0,0 
SYMBOL 211,0,1,254,8,8,255,0,0 
SYMBOL 212,254,0,0,0,0,128,0,0 

• EXPLOSION 

SYMBOL 213,8,68,34,17,8,4,0,1 
SYMBOL 214,0,0,0,24,36,129,153,36 
SYMBOL 215,32,72,144,32,64,0,0,159 
SYMBOL 216,249,0,0,2,4,9,18,4 
SYMBOL 217,36,153,129,36,24,0,0,0 
SYMBOL 218,128,0,32,16,136,68,34,16 
SYMBOL 219,4,18,9,4,2,0,0,124 


1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 


2120 

2130 

2140 


SYMBOL 220,0,0,0,0,24,36,66,153 
SYMBOL 221,16,34,68,136,16,32,0,0 
SYMBOL 222,0,0,4,8,17,34,68,8 
SYMBOL 223,153,66,36,24,0,0,0,0 
SYMBOL 224,62,0,0,64,32,144,72,32 
RETURN 

*»* MANN AUF's DACH *** 

LOCATE #1,xm(screen),ym(screen):PRINT #1,CHR 
*(251) 

bi 1d(xm (screen) ,ym (screen) ) =-l 

mann=-1 

RETURN 


*** Mann aufnehmen *** 


IF inhalt THEN GOSUB 2950:RETURN 
SOUND 3,500,30,12 
mann=0:inhalt=—1 

LOCATE #1 ,xm(screen),ym(screen):PRINT #1,CHR 
*(32) 

AFTER zeit EOSUB 1930 

bi 1d(xm(screen),ym(screen))=0 

RETURN 


*** Mannpos. testen *** 

IF (x=xm(screen)-3 AND h*=hub*(2) OR x=xm(sc 

reen)+l AND h*=hub*(0)) AND y=ym(screen)-1 A 

ND mann THEN BOSUB 2000 

IF y< >24 OR NOT inhalt THEN 1370 

IF h*=hub*(0) THEN xm=x-l:ELSE xm=x+3 

IF bild(xm,y+l)=-l THEN GOSUB 2950:GOTO 1370 


2150 ' 

2160 ' *** Mann aussetzen *** 

2170 ’ 

2180 LOCATE xm,y:PRINT CHR*(22)+CHR*(1) 

2190 LOCATE xm,y+l:PRINT CHR*(2SO); 

2200 bi1d(x m,y+1)=—1 

2210 PRINT CHR*(22)+CHR*(0); 

2220 inhalt=0 

2230 gerettet=gerettet+l 

2240 kanto=kanto+200 

2250 LOCATE 3,1:PRINT gerettet 

2260 LOCATE 21,1:PR INT konta 

2270 IF gerettet>=anz(screen) AND NOT mann THEN s 
creen=screen+l:GOTO 720 
2280 GOTO 1370 
2290 ' 

2300 ' **** EXPLOSION #*** 

2310 ' 

2320 LOCATE xl,yl:PRINT hx*(l) 

2330 inhalt=0 

2340 SOUND 2,2000,50,15,,,5 
2350 LOCATE xl,yl:PRINT hxS(O) 

2360 SOUND 3,700,40,15,,,1 
2370 LOCATE xl,yl:PRINT hx*(l) 

23B0 ex=0 

2390 FOR n=15 TO 1 STEP -1 
2400 SOUND 1,426,4,10,,,n 
2410 LOCATE xl,yl:PRINT hx*(ex) 

2420 ex=l-ex 
2430 NEXT 

2440 LDCATE xl,yl:PRINT hub* 

2450 anzhub=anzhub+l 
2460 konta=konta—1500 
2470 LOCATE 21,1:PRINT konta 
2480 IF anzhub=maxhub THEN 2640 
2490 LOCATE 11,2:PRINT anzhub+1 
2500 x=x(screen>:y=y(screen)—1 
2510 GOTO 1240 
2520 ' 

2530 ' 

2540 ' **** HAEUSER SETZEN **#* 

2550 ' 

2560 FOR i=links TO rechts 
2570 FOR j=aben TO unten 
2580 bi1d(i,j)=—1 

2590 LOCATE i,j 

2600 PRINT CHR*(206) 

2610 NEXT 
2620 NEXT 
2630 RETURN 
2640 ' 

2650 ' 

2660 ' **** GAME OVER **** 

2670 ’ 

2680 ' 

2690 DI 

2700 BORDER 10,15 
2710 LOCATE 12,11 
2720 PRINT"G A M E OVER" 

2730 GOSUB 2950:GOSUB 2950:GOSUB 2950 
2740 FOR i=1 TO 3000:NEXT 
2750 CLS 
2760 BORDER O 

2770 LOCATE 3,8:PRINT"Wol1en Sie weiterspielen (j 
/n> ?" 

27B0 ' 

2790 htest*="" 

2800 WHILE htest*="":htest*=INKEY*:WEND 
2810 htest*=LOWER*(htest*) 

2820 IF htest*="j" THEN screen=0:an2hub=0:gerette 
t=0:GOTO 700 

2830 IF htest*< >"n" THEN 2790 
2840 ' 

2850 CLS 

2860 PRINT:PRINT:PRINT:PRINT 
2870 IF konta>0 THEN 2900 

2880 PRINT"Bitte ueberweisen Sie“ABS(kanta)"DM au 
4 " 

2890 PRINT:PRINT"Konta.Nr.: 14519 Blz.: 37069600 
“:GOTO 2910 

2900 PRINT"Lassen Sie sich"kanta"DM auszahlen !“ 

2910 FOR i=0 TO 3000:NEXT 

2920 LOCATE 1,20 

2930 END 

2940 ' 

2950 FOR i=0 TO 30 

2960 SOUND 2,100+i*20,3,12 

2970 NEXT 

2980 RETURN 

2990 ' 

3000 DATA"Sie verdienen Ihr Geld als Pilot eines" 
3010 DATA"Rettungshubschraubers in New York !" 
3020 DATA"“ 
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3030 DATA' 

3040 DATA' 

3050 DATA 
3060 DATA 
3070 DATA 
3080 DATA' 

3090 DATA' 

3100 DATA 
3110 DATA 
3120 DATA 
3130 DATA 1 
3140 DATA”" 

3150 DATA"Sie erhalten fuer jede gerettete Seele' 
3160 DATA"200,—DH Praemie.“ 

3170 DATA”" 

3180 DATA"Jeder zerstoerte Helicapter kästet' 
3190 DATA" 1500,-DM.'' 

3200 DATA”" 

3210 DATA”" 

3220 DATA”*' 


'Ihre Aufgabe ist es, die Menschen van" 
'den Daechern zu holen und auf der Erde" 
'abzusetzen." 

'Dieses erreichen Sie durch das" 
’Betaetigen des Feuerknopfes." 

'Wenn Sie die erforderliche' 
■Mindestanzahl von Menschen gerettet - 
'haben und sich Niemand mehr auf dem' 
'Dach befindet, wechselt die Szene.' 


3230 

DATA 

<Leertaste>" 

3370 

<L 

H 

a 

□ 

3,16,21,25,3,39,3,4,8,17,9,16,34 

3240 




0 


3250 

' 

••• Werte fuer Haeuser #** 

3380 



3260 



3390 

DATA 

1,3,20,25,7,15,5,17,18,39,19,25, 

3270 

DATA 

9,14,20,25,34,38,3,11,22,31,15,25,1,3,9 


1 , 13 



,25 


3400 

DATA 

6,30,6,8,20,23,12,16,27,30,16,25 

3280 

DATA 

33,39,12,25,1,2,5,8,22,26,12,19,35,37,6 


4, 21 



,S 


3410 



3290 



3420 

* 

*** Startpos.Hubschrauber *** 

3300 

DATA 

1,2,7,25,7,21,18,25,34,38,4,25,11,16,7, 

3430 

* 



17 


3440 

DATA 

6,24,25,24,21,5,25,24,14,24 

3310 

DATA 

33,39,11,15,15,20,9,19,9,12,10,17,10,12 

3450 




,6,9 


3460 

* 

*** Dachpos. Mann #** 

3320 

• 


3470 

* 


3330 

DATA 

1,1,5,25,8,15,12,22,13,21,8,12,30,35,11 

3480 

DATA 

28,14,9,9,19,4,8,20,30,IO 


,25 


3490 



3340 

DATA 

5,7,9,23,16,26,13,23,16,19,5,7,25,39,3, 

3500 

■ 

*** Maenner pro Screen *** 


10 


3510 



3350 



3520 

DATA 1 , 1 , 1 , 1 , 1 , 1,1,1 

3360 

DATA 

1,4,5,25,15,24,13,25,25,33,5,7,32,39,18 

3530 

DATA 

7,15,24,30,38 


,25 


3540 




{ 10 nx'S Honey 2000 

♦ ♦♦♦♦ ■ -* JL ♦♦♦♦♦♦♦♦♦♦♦»♦ 


mm 


NiniMun 4 
♦♦♦♦♦♦♦♦♦♦♦ ♦ 

*45 



Variablentabelle: 


inst$: Instruktionen; 
anzscreen: Anzahl der Screens (0-4); 
screen: Momentane Screen; 
maxhub: Anzahl der Hubschrauber; 
anzhub: Nummer des momentanen 
Hubschraubers; 

Li, re. ob, un: Koordinaten der Häuser; 
konto: Kontostand; 

hub$(0): nach links fliegender Hub¬ 
schrauber; 

hub$(2): nach rechts fliegender Hub¬ 
schrauber; 

h$: Momentaner Hubschrauber; 
hx$: Explosion; 

bild: Boolesche Variable für Hindernis; 
gerettet: Anzahl der geretteten Männ¬ 
chen; 

v: vertikale Bewegung; 

w: waagerechte Bewegung; 

x,y: aktuelle Hubschrauberkoordinaten; 

xl, yl: alte Koordinaten; 

xm. ym: Koordinaten für Mann auf 
Dach; 

mann: Boolesche Variable für Mann auf 
Dach; 

inhalt: Boolesche Variable für Mann in 
Hubschrauber; 

zeit: Zeiteinheit für Schwierigkeitsgrad 
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Bildübertragung 
per Telefon 

Datenfernübertragung (DFÜ) per Telefon ist seit einiger Zeit ein Thema für jedermann. Leider besitzen 
die Schneidercompnter keine serielle Schnittstelle zum Anschluß eines Akustikkopplers. Findige Leute ha¬ 
ben jedoch herausgefunden, daß man auch über den Centronics-Port Daten empfangen kann, nämlich über 
den BUSY-Eingang, über welchen der Drucker normalerweise mitteilt, ob er empfangsbereit ist oder nicht. 
Mit einem selbstgebastelten Kabel, der entsprechenden Software und einem Akustikkoppler besitzt man 
nun ein voll DFÜ-fähiges Gerät, mit dem man zum Beispiel auch Bilder übertragen kann. 



Bild vom Atari 520 ST auf CPC 464 übertragen 


Zu diesem Zweck hat der WDR- 
Computerclub einen Standard zur 
Bildcodierung entwickelt, mit des¬ 
sen Hilfe man Bilder von beliebi¬ 
gen Rechnern austauschen kann. 
Dieser Standard hat sehr schnell 
eine weite Verbreitung gefunden. 
So gibt es inzwischen außer der 


WDR-Mailbox auch andere Mail¬ 
boxen, welche Bilder in ihrem An¬ 
gebot haben. 

Man kann ein Bild nämlich nicht 
so einfach senden. Ein erstes Hin¬ 
dernis ist die Bilddarstellung bei 
verschiedenen Rechnern. Manche 
Rechner haben ihren Koordinaten¬ 


ursprung links oben auf dem Bild¬ 
schirm, andere wiederum, wie z.B. 
auch der Schneider, bevorzugen 
die linke untere Ecke. Außerdem 
muß man darauf achten, daß man 
der Gegenstelle keine Kontroli- 
zeichen schickt, da diese sonst 
eventuell den Kontakt abbricht. 


























































































Schneider spezial 


113 


Anwendung 



Die Codierung 


Man hat sich also als erstes 
überlegt, zu jedem berechneten 
Code 32 zu addieren, so daß keine 
Kontrollzeichen (unter 32) mehr 
entstehen können, Nun ist der 
ASCII-Code, welcher zur Über¬ 
mittlung verwendet wird, jedoch 
ein 7 Bit-Code und erlaubt die 
Darstellung von Codes bis zu 127. 
Addiert man jedoch zu Codes ab 
96 die 32 hinzu, so landet man 
schon bei Codes, die man nicht 
mehr senden kann. Also entschloß 
man sich, auf ein Bit zu verzichten 
und nur jeweils sechs Punkte zu ei¬ 
nem Code zusammenzufassen. 
Sind jetzt zum Beispiel sechs ne¬ 
beneinander liegende Punkte auf 
dem Bildschirm gesetzt, so erhält 
man folgende Binärzahl: 111111. Al¬ 
so für jeden gesetzten Punkt setzt 
man eine Eins. Dezimal wäre dies 
eine 63, plus 32 ergibt 95; also ei¬ 
nen Code, den wir senden kön¬ 
nen. Für sechs ungesetzte (also 
schwarze) Punkte ergibt sich 
0 + 32 = 32 als zu sendender Code. 
Dies entspricht im ASCII-Code 
dem Leerzeichen. 

Man braucht jetzt also nur noch 
den Bildschirm von links oben zei¬ 


lenweise abzutasten (scannen) und 
jeweils sechs nebeneinanderlie¬ 
gende Punkte nach obigem Sche¬ 
ma in ein Zeichen zu verwandeln. 
Man erhält eine wild aussehende 
Ansammlung von Zeichen, welche 
man am besten in einer Datei auf 
Diskette oder Kassette ablegt. Zu 
beachten ist, daß nach jeder fertig 
codierten Bildschirmzeile ein Zei¬ 
lenendezeichen (Carriage Re¬ 


turn(CR)) in unsere Datei über¬ 
nommen wird. Zum Abschluß der 
Datei fügen wir noch einmal zwei 
CRs in die Datei ein. 

Damit das Ganze etwas einfa¬ 
cher zu decodieren ist, wird der 
Datei noch ein Kopf vorangestellt. 
Ähnlich einem Brief. Dieser könn¬ 
te zum Beispiel so aussehen: 

BILD 

C-64-Schneegestöber 

H320 

V200 


Als erstes steht dort in Groß¬ 
buchstaben „BILD", um die Datei 
als Büddatei kenntlich zu machen. 
In der nächsten Zeile folgt eine 
Rechner- und Bildbeschreibung. 
Wichtig sind die beiden folgen¬ 
den Zeilen. Dort wird die Auflö¬ 
sung in horizontaler und vertikaler 
Richtung dargestellt. Zu beachten 
ist, daß die Zahlen dreistellig an¬ 
gegeben werden müssen. Die bei¬ 


den folgenden Zeilen bleiben frei 
für eine spätere Erweiterung. Erst 
dann folgt das eigentliche Bild. 


Die Programme 


Mit den abgedruckten Listings 
ist es möglich, Bilder zu codieren 
und zu decodieren. Beim Codie¬ 
ren ist es möglich, einen Aus¬ 
schnitt zu wählen, da man evtl. Bil¬ 
der zu einem Rechner übermitteln 
will, der keine so hohe Auflösung 
hat wie unser Schneider. Die co¬ 
dierten Bilder belegen übrigens 
weniger Speicherplatz auf der Dis¬ 
kette als normal abgespeicherte 
Bilder. Map kann diese Methode 
also auch nutzen, um teuren Dis¬ 
kettenspeicherplatz zu sparen. 
Sparen kann man dabei etwa 6K 
pro Bild. 

Die Programme laufen in BASIC 
natürlich relativ langsam. In Mode 
1 sind immerhin 320*200 = 64000 
Punkte zu verschlüsseln. In der 
WDR-Mailbox befindet sich je¬ 
doch von einem gewissen Don Ca¬ 
millo ein Programm in Maschinen¬ 
code, welches Bilder um einiges 
schneller decodieren kann. 

Schade ist, daß man Bilder nicht 
in alle Mailboxen senden kann. 
Viele Mailboxen, die zum Beispiel 
mit einem C-64 betrieben werden, 
erlauben nur das Senden von bis 
zu 99 Zeilen. Da wir jedoch für je¬ 
den vertikalen Bildpunkt eine Zei¬ 
le benötigen, dürfen die Bilder in 
diesem Fall keine so hohe Auflö¬ 
sung haben. 

Der WDR-Computerclub hat 
übrigens eine Verbesserung die- 
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ses Standards angekündigt. Man 
kann nämlich bei Auftreten von 
vielen schwarzen oder weißen 
Punkten die Codierung optimie¬ 
ren, indem man zum Beispiel sagt, 
ab jetzt kommen soundso viele 
weiße Punkte. Dies ist bei der 
Übertragung von Schaltbildern 
sehr sinnvoll, da hier ein großer 
Teil der Bildfläche weiß bleibt. 
Diese Methode spart dann natür¬ 
lich auch Telefonkosten. Das Sen¬ 
den eines Bildes dauert immerhin 
ca. sieben Minuten. 

Wer sich aus der WDR-Box ein 
Bild holen möchte, dem sei hier 
die ,,LADY" empfohlen. Leider ge¬ 
lingt es nur noch sehr selten, in 
diese Box einzudringen. Obwohl 
diese von zwei Usern gleichzeitig 
benutzt werden kann, scheint sie 
in letzter Zeit hoffnungslos überla¬ 
stet zu sein. Zu empfehlen ist noch 
der Krefelder Info Service (KIS), 
welcher auch ganz nette Bilder be¬ 
reithält. Eine Liste mit den Telefon¬ 
nummern dieser Boxen kann man 
sich aus vielen Mailboxen senden 
lassen. tb 


100 'CPC 464, 664, 6128 

110 'Programm zum Codieren von Bildern in Mode 1 

120 'nach dem WDR-Standard 
130 ' 

140 'Anwendung! 

150 'Mit den Cursortasten wird der blinkende Cur 
sor 

160 'au-f die linke obere Ecke des zu codierenden 
Ausschnittes 

170 'gefahren. Mit <ENTER> wird diese Position b 
estaetigt. 

180 'Genauso verfaehrt man mit der rechten unter 
en Ecke. 

190 'Jetzt kann es etwas dauern bis das Bild cod 
iert ist 
200 ' 

210 'Danach wird unter dem vorher eingegebenen N 
amen das 

220 'codierte Bild gespeichert. 

230 ' 

240 '<c> 1985 

250 ' Thomas Barndt 

260 ' 

290 ' 

300 MODE 2 
310 ' 

320 ' ** Eingabe der Dateinamen ** 

330 ' 

340 a$="Name der Datei, auf der " 

350 PRINT a*;sINPUT"sich das zu codierende Bild 
befindet:",nlf 
360 PRINT 

370 PRINT a$;:INPUT”das codierte Bild gespeicher 
t werden soll:",n2$ 

380 LINE INPUT"Bi1dbezeichnung:",bez$ 

390 MODE 1 
400 LOAD nl$,StC000 
410 SPEED INK 10,10 
420 INK 2,26,0 
430 DEFINT x,y,z 
440 ' 

450 ' ** Cursorsteuerung ** 


460 


470 

x =320:y=200 





710 

k$=STR*((x(1)—x<0)+2)\2) 

4B0 

z=TEST(x,y) 





720 

k$="000 , ‘+RIGHT$ <k*,LEN<kS)~l> 

490 

PLOT x,y,2 





730 

k$= ,, H"+RI6HT$ (k*,3) 

500 

a*=INKEY* 





740 

PRINT#9,k$ 

510 

IF a*=CHR$<242) 

THEN 

GOSUB 

570:x =x —2:GOTO 

48 

750 

k*=STR$<(y(0)—y(1>+2)\2> 


0 





760 

k#="000"+RIGHT* <k$,LEN(k$)-1) 

520 

IF a*=CHR*(243) 

THEN 

GOSUB 

570:x=x+2:GOTO 

4B 

770 

k*--V H +RIGHTS(k* v 3> 


0 





780 

PRINT#9,k$ 

530 

IF a$-CHR$(241) 

THEN 

GOSUB 

570:y=y-2:GOTO 

48 

790 

PRINT#9:PRINT#9 


0 





800 


540 

IF af=CHR$<240) 

THEN 

GOSUB 

570:y=y+2:GOTO 

48 

810 

' *« Ausschnitt codieren ** 


0 





B20 

* 

550 

IF a*=CHR*(13) 

THEN 620 



830 

FOR y=y(0> TO y<l> STEP -2 

560 

GOTO 500 





840 

FÜR x=x(0) TO x(l> STEP 12 

570 

PLOT x , y, z 





850 

code=0 

580 

RETURN 





860 

FOR i=0 TO 5 

590 






870 

IF x+2*i>x(l) THEN 900 


' -** Koordinaten speichern ** 
x(i)=x:y(i) =y 

IF i =0 THEN i =i +1: GOTO 500 
PLOT x,y,s 


600 
610 
620 
630 
640 
650 ' 

660 ' Bildkopf erzeuaen ** 
670 ‘ 

6B0 n 2*=" ! ,, +n2$:0PEN0UT n2$ 
690 PRINT#9,“BILD“ 

700 PRINT#9,b es $ 


B80 IF TEST <x+2*i,y)>0 THEN t=l ELSE t=0 

B90 code=code+t*<2"‘i) 

900 NEXT i 

910 code=code+32 

920 PRINT#9,CHRS(code); 

930 NEXT x 

940 PRINT#9 

950 NEXT y 

960 PRINT#9:PRINT#9 

970 CLOSEOUT 
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100 'CRC 464, 664, 6128 

110 'Programm zur Bi 1ddecodierunq nach dem WDR-S 
tandard 
120 ' 

130 '(c) 1985 

140 ' Thomas Barndt 

150 ' 

180 ' 

190 MODE 2 
200 DEFINT a-z 

210 PRINT:PRINT TAB(10)"(c) Thomas Barndt" 

220 PRINT TAB(10)" 

230 PRINT TAB(10)" 1985"SPRINT 

240 CAT' Nur bei Diskettenbetrieb 
250 INPUT ,f Bi Iddateiname: " ,name$ 

260 CLS 

270 OPENIN namel 
280 LINE INPUT#9, artS 
290 LINE INPUT#9,titelt 
300 LINE INPUT#9,hS 
310 hor=VAL<MIDS(hS,2>) 

320 h=hor/6 
330 LINE INPUT#9,vS 
340 LINE INPUT#9,1eerS 
350 LINE INPUT#9,leerS 
360 v=VAL(MIDS(vS,2)) 

370 v1=2*v 

380 IF art$< >"BILD" GR h-*v<=0 THEN PR INT "Kop -ff eh 
1er":END 
390 MODE 1 
400 FOR i=l TO v 
410 hor=0 

420 IF NOT EOF THEN LINE INPUT#9,zei1eS 
430 zeileS=LEFTS<zeileS+SFACES<h),h) 

440 FOR j=l TO h 

450 wS=B I NS (ASC’< MIDS < z ei 1eS,j,1)) -32,6 > 

460 FOR k=0 TG 5 * 

470 IF MIDS(w$,5—k+1,1)=“1" THEN PLOT hor+ 

2*k,vl-2*i,1 
480 NEXT 

490 hor=hor+12 

500 NEXT 
510 NEXT 
520 CLOSEIN 

530 aS=UPPERS( INKEYS) : IF aS= ,,u THEN 530 
540 IF aS="S" THEN SAVE"picture. pic" ,b ,?<C000,Sc40 
00 'Bild speichern 
550 IF aS="N" THEN 190 'Neustart 

560 IF aS="H n THEN RUN‘‘hardcopy" 'hier eigene Ha 
rdcapy einsetzen 
570 GOTO 530 
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GDM oder ,£EM“ 
auf dem Schneider 


Hilfe Ablage Druck Ende 



Dieses Programm hat es in sich: 
GEM für die Schneider- 
Computer, fertig zum Abtippen. 
Um jeden Irrtum zu vermeiden, 
nennen wir unser Programm 
GDM (Graphic Desk Manager). 

Was ist GDM? Nun, GDM ist eine 
BASIC-Erweiterung, mit deren 
neuen Befehlen man im kleinen 
Stil eine Atari ST-, Macintosh- oder 
eben GEM-Benutzerschnittstelle 
simulieren kann, und zwar auf 464, 
664 oder 6128, GDM verwaltet da¬ 
bei einen Pointer (ein kleiner Pfeil 
zur Objekt-Auswahl), WINDOWS, 
die vergrößert, verkleinert und 
umhergeschoben werden können, 
DROP-DOWN-Menüs und Menü- 
Balken, Knöpfe, mit denen der Be¬ 
nutzer durch ,,Drücken" Program¬ 
mierfunktionen auslösen kann, 
und nicht zuletzt kann der Benut¬ 
zer jederzeit eine Hardcopy- 
Funktion auslösen. 


Wie benutzt man 
GDM? 


Am Anfang steht natürlich die 
Eingabe des Programms, das hier 


in Hex-Darstellung wiedergege¬ 
ben ist. Jede Zahl steht hier für ein 
Byte im Speicher, wobei vor jeder 
Zeile die Adresse steht, und dann 
jeweils 14 Bytes. 

Um das Programm einzugeben, 
sollte man das BASIC-Programm- 
Listing Nr. I benutzen. Dieses Pro¬ 
gramm gibt die Adressen vor, es 
müssen dann nur noch die Zahlen 
eingegeben werden. 

Um also eine lauffähige Version 
von GDM zu erhalten, sind folgen¬ 
de Schritte notwendig: 

*BASIC-Listing Nr. I eingeben & 
abspeichern 

* BASIC-Programm starten und 
Hex-Zahlen eingeben 

Das BASIC-Programm schreibt 
nach der letzten Adresse automa¬ 
tisch eine Kopie von GDM auf Kas¬ 
sette oder Diskette, die dann mit 
LOAD"GDM nachgeladen wer¬ 
den kann (siehe unten). 


Anwendung 

Hat man nun eine Kopie von 
GDM auf Kassette/Diskette, gibt 


es zwei Möglichkeiten, GDM in ei¬ 
genen Programmen zu verwen¬ 
den: 

Man kann GDM zuerst starten 
und dann sein eigenes Programm 
laden. Dazu erst den Speicher mit 
MEMORY &95FF (GDM beginnt 
ab Adresse &9600) reservieren, 
dann GDM mit LOAD"GDM laden, 
und mit CALL &9600 initialisieren. 
Alle hier abgedruckten Beispiel¬ 
programme setzen voraus, daß Sie 
diese Schritte vorher ausgeführt 
haben. 

Oder, und das wird wohl die 
Hauptanwendung sein, man kann 
GDM von seinem eigenen Pro¬ 
gramm nachladen. Dazu müssen 
die oben angegebenen Befehle 
am Anfang des BASIC-Programms 
stehen, das GDM verwendet. Die 
erste Zeile des jeweiligen Pro¬ 
gramms sollte also lauten: 

10 MEMORY &95FF:LOÄD 
”GDM: CALL &9000 

Das Fenster Nr. 1, das dabei er¬ 
scheint, muß mit der Nummer 0 
(s.u.) angesprochen werden. 

Der Befehl :INIT führt die An¬ 
fangssequenz von GDM erneut 
durch und kann jederzeit aufgeru¬ 
fen werden. Window-Größen und 
-Lagen werden nicht verändert. 
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:INIT sollte nur aufgerufen wer¬ 
den, wenn Window 0 (GDM Win¬ 
dow Nr.l) aktiv ist. 

Außerdem wird von :INIT Mo¬ 
de 2 eingeschaltet, da GDM nur 
in Mode 2 korrekt arbeitet. 


Der Pointer 


Der Pointer ist ein kleiner Pfeil, 
den der Benutzer mit den Pfeilta¬ 
sten oder dem Joystick beliebig 
über den Bildschirm bewegen 
kann, Durch den Befehl :p.move 
wird die komplette Steuerung des 
Pointers übernommen, so daß das 
eigentliche Programm sich über¬ 
haupt nicht darum zu kümmern 
braucht. Es gibt aber noch mehr 
Befehle, um den Pointer zu beein¬ 
flussen, und zwar folgende: 

:P.ON zeigt den Pointer wieder 
an, falls er mit :P.OFF abgeschaltet 
wurde. Der Pointer muß vorher ab¬ 
geschaltet sein, sonst passiert bei 
diesem Befehl gar nichts. In die¬ 
sem Zusammenhang sollte man 
daran denken, daß der Pointer 
zwar nach einem CLS oder Über¬ 
schreiben verschwindet, aber erst 
nach einem :POFF wieder neu an¬ 
gezeigt werden kann. 

:P.OFF läßt den Pointer vom Bild¬ 
schirm verschwinden, so lange, 
bis er mit :P.ON wieder einge¬ 
schaltet wird. 

:P.POS,X*l,Y*l setzt den Pointer 
auf die angegebene Position, wo¬ 
bei er x-Werte von 0-79, y-Werte 
von 0-49 annehmen kann. 

:P.ÄSK,@x,@y legt die augen¬ 
blickliche Position des Pointers in 
die Variablen x und y, wobei es 
sich um Integervariablen handeln 
muß. 

:P.MOVE schaltet den Pointer 
ein (mit :PON) und bewegt ihn 
synchron zu den Bewegungen des 
Joysticks. Sobald der Benutzer den 
Joystick-Feuerknopf drückt, ver¬ 
schwindet der Pointer wieder, und 
der Befehl wird beendet. Das Pro¬ 
gramm sollte nun mit ;P.ASK über¬ 
prüfen, wo der Pointer zuletzt war, 
und entsprechend handeln. Der 
Befehl wird auch durch Drücken 
der ESC-Taste abgebrochen. 


Windows 


GDM kann Windows verwalten, 
die diese Bezeichnung sehr viel 
mehr verdienen als die des 
Schneider-BASICs. GDM-Windows 


10 * Dieses Programm dient zum eingeben Listing Nr. I 
20 * und abspeichern von GDM 
30 ’ 

40 INK 0,0:B0RDER 0:INK 1.2B:nüDE 2:L0CATE 1,25 
50 MEMORY &35FF:DIM 1(203 

50 INPUT "Soll ich einen bereits eingetippten Teil 
einiesen Cj/n3”;a$ 

70 IF LOUJERSCLEFTSCaS,13 3“”J” THEN INPUT "Bitte Di 
skette/Kassette mit File GDM.BIN einlegen, dann EN 
TER ”, a$:LGAD”gdm.bin”,&S600 

B0 INPUT "Bitte geben Sie die Adresse in Hexadezim 
al ein, ab der Sie eingeben moechten (Beim Anfa 
ng 36003:",aS:IF LENCa$3<>4 THEN PRINT”Falsche Adr 
esse":GOTO BO ELSE adr-UALC”S”+a$3 

SO PRINT”Sie koennen nun eingeben. Wenn Sie aufhoe 

ren moechten, drucken Sie nur ENTER”:PRINT 

100 PRINT HEXSCadr,43”: INPUT IS:IF 1$=”" TH 

EN 130 ELSE IF LENC1S3<>44 THEN PRINT CHRSC73"Fehl 

er in der Eingabe. Bitte nochmal!!”:GOTO 100 

110 cs-0:zz-l 

120 FOR x-1 TO 41 STEP 3 

130 b$="MID$( 1$, x , 23 : b~UALC ”&"+b$3 : cs“cs+b: l(zz3-b: 

zz-zz+1 

140 NEXT 

150 IF cs>255 THEN cs-cs-255:GOTO 150 
150 c$"RIGHT$C1$,23:c-UALC"&”+c$3:IF c<>cs THEN PR 
INT CHRSC73"Falsche Pruefsumme. Bitte nochmal!!”:G 
0T0 100 

170 FOR t-1 TO 14:POKE adr,1Ct3:adr-adr+1:NEXT 
100 GOTO 100 

ISO PRINT CHRSC73:INPUT”Moechten Sie aufhoeren? Cj 
/n3 ” , a$ : IF LOUERSCLEFTSCaS, 1 3 3-”J ” THEN PRINT”Beim 
naechstenmal muessen Sie mit dieser Adresse begin 
nen:"HEXSCadr,43:PRINT"Schreiben Sie Sich das auf! 
Druecken Sie bitte ENTER, wenn die Kassette” ELSE 
100 

200 INPUT "Oder Diskette einliegt, auf der ich den 
bisherigen Teil von GDM.BIN abspeichern kann.”,a$ 
210 SAUE "GDM.BIN",b,&S600,adr-B3B00,&3600 
220 PRINT:PRINT"Eis zum naechsten mal...” 
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können nämlich vom Benutzer be¬ 
liebig vergrößert oder verkleinert 
werden, verschoben oder über 
ein anderes Objekt bzw. darunter 
gelegt werden, vorausgesetzt, im 
Programm befindet sich ein Unter¬ 
programm, das auf einen KLICK 
reagiert. Nur das aktuelle Window 
(das an oberster Stelle liegt) ent¬ 
hält Text, alle anderen sind innen 
einfach grau schraffiert. Bei allen 
Windowbefehlen ist zu beachten, 
daß der eigentliche Arbeitsbe¬ 
reich im Fenster in x- und y- 
Richtung jeweils 1 Zeichen (bzw. 
Zeile) kleiner ist als die Außenma¬ 
ße, da auch noch Platz für das Kon- 
trollfeld benötigt wird. Nach ei¬ 
nem W.ACTIVE laufen alle norma¬ 
len PRINT-, INPUT-Befehle über 
das augenblickliche Fenster. Der 
BASIC-Window-Befehl kann weiter 
benutzt werden, aber man sollte 
sich darüber klar sein, daß da¬ 
durch evtl, die Umrahmung eines 
Fensters zerstört werden kann. 
Wenn der Benutzer die Größe 
oder Lage eines Fensters verän¬ 
dern möchte, so kann das Pro¬ 
gramm das ganz einfach feststel¬ 
len, indem es die Position des 
Pointers mit der linken oberen 
Ecke (Bewegungsfeld), der obe¬ 
ren rechten Ecke (Vollfeld) oder 
der rechten unteren Ecke (Grö¬ 
ßenfeld) des aktuellen Fensters 
vergleicht. Dann sollte ein :FRA¬ 
ME...-Befehl aufgerufen und das 
Fenster neu gezeichnet werden. 
Wenn der Pointer sich nicht über 
einem Fenster befindet, sollte das 
Programm überprüfen, ob er evtl, 
über einem anderen Fenster steht, 
das aktiviert werden soll. Das Bei¬ 
spielprogramm Nr. 1 zeigt, wie es 
geht. 

:W.ÄCTIVE, NR*1 zeichnet ein 
Fenster neu bzw. legt das Fenster 
über alle anderen. Der Inhalt des 
Fensters wird angezeigt, und so 
lange, bis ein anderes Fenster akti¬ 
viert wird, gehen alle Bildschirm¬ 
ausgaben zu diesem Fenster. Nr 
bezeichnet dabei die Nummer des 
Fensters, 0-3. Auf gar keinen Fall 
sollte die Nummer >3 werden, da 
nur 4 Fenster verwaltet werden 
können. 

:W.DESACTIVE, NR*1 desakti 
viert das Fenster mit der Nummer 
nr, d.h., das Fenster verschwindet 
vom Bildschirm. So lange, bis das 
Fenster (oder ein anderes) mit 
W.ACTIVE wieder eingeschaltet 
wird, sind keine Bildschirmausga¬ 
ben möglich. In diesem Fall wird 
in das nächste offene Window ge¬ 
schrieben. Bei einem W.ACTIVE 
erscheint das Fenster an der alten 
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3600: 

03 

69 

96 

00 

02 

4E 
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E3 
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20 
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20 
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32 
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20 

02 

4E 

02 

14 

48 
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44 
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20 
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47 
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07 

Bl 
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99 
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06 
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9B 

77 

18 

03 

EO 
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7E 

2F 

77 

C5 

CD 

26 

BC 

CI 

10 

E9 

C9 

3E 

01 

32 

93 

9BB9: 

C4 

99 

C3 

C5 

99 

9F 

32 

C4 

99 

C3 

C5 

90 

CD 

EC 

03 

9B70: 

90 

CD 

C5 

9B 

39 

03 

95 

32 

FO 

99 

DD 

21 

03 

96 

ED 
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DD 

23 

B7 

28 

00 

11 

18 

00 

47 

DD 

19 

10 

FC 

DD 

3B 

9B94: 

55 

02 

DD 

6E 

03 

ES 

39 

58 

99 

DD 

77 

01 

30 

59 

B3 

9B92: 

99 

DD 

77 

03 

CD 

24 

BB 

7C 

CB 

57 

20 

35 

F5 

20 

C4 

9BB0: 

55 

98 

22 

E9 

9B 

39 

58 

99 

32 

EC 

9B 

30 

59 

99 

00 
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32 

ED 

9B 

Fl 

CD 

IE 
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CD 
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DD 
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30 
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07 
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38 

OB 

DD 
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99 
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00 
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EC 
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ED 

9B 

32 

59 

99 

20 
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CD 

EC 
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9D0E: 

DD 

36 

00 

CF 

DD 

23 

OC 

79 

FE 

14 

38 

F4 

C9 

CD 

42 

9D1C: 

1B 

97 
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B7 

28 

04 

DD 

19 

10 

FC 

El 

7D 

DD 

77 

00 

El 

01 

9D46: 

7D 

DD 

77 

02 

El 

7D 

DD 

77 

01 

El 

7D 

DD 
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03 

42 


Position und mit der alten Größe 
von neuem. 

: W.ASK, NR*1, @X1, @Y1, @X2, 

Y2 ergibt die augenblicklichen 
Ecken des Fensters mit der Num¬ 
mer nr. Das Fenster muß angezeigt 
sein. Mit dieser Funktion kann 
überprüft werden, ob der Pointer 
auf eines der Aktionsfelder des 
Fensters zeigt. Die Variablen xl, 
yl, x2, und y2 müssen Integerva¬ 
riablen sein. 

: W.POS, NR*1, Xl*l, Yl*l, X2*l, 
Y2*l legt die Lage und Größe (al¬ 
so die obere linke und untere 
rechte Ecke) des Fensters fest. 

:W.NAME, NR*1, @N$ legt eine 
neue Überschrift für das Fenster 
nr fest. N$ sollte dabei nicht länger 
als 20 Zeichen sein. 

:SCREENNEW dient dazu, den 
Bildschirm „aufzuräumen“. D.h., 
der Bildschirm wird komplett ge¬ 
löscht, und alle Fenster werden in 
der richtigen Größe und Lage 
über/untereinander gezeichnet. 
Dadurch verschwinden alle nicht 
gespeicherten Objekte wie Drop- 
Down-Menüs und Knöpfe vom 
Bildschirm. 

Der Benutzer kann Windows 
vergrößern oder verkleinern und 
deren Position beliebig ändern, in¬ 
dem er die im Bild wiedergege¬ 
benen Kontrollen bedient. Das 
Programm muß überprüfen, ob ei¬ 
ne dieser Kontrollen bedient wur¬ 
de (indem es deren Position mit 
der Position des Pointers ver¬ 
gleicht). Sollte das der Fall sein, 
sollten die folgenden Maßnahmen 
unternommen werden: 

1) Neue Position mit:FRAMEPOS 
oder neue Größe mit :FRAMESIZE 
wählen lassen 

2) Fenster mit :SCREENNEW 
neu zeichnen 

:FRÄMEPOS zeichnet ein 
Rechteck in der Größe und Lage 
des aktuellen Fensters auf den 
Bildschirm. Dieses bewegt sich so 
lange synchron mit den Bewegun¬ 
gen des Pointers (der von dieser 
Funktion eingeschaltet wird), bis 
ein KLICK ausgeführt wird. Die 
neuen Koordinaten werden dann 
als die Position des aktuellen Fen¬ 
sters abgespeichert, und das 
Rechteck verschwindet. 

:FRAMESIZE zeichnet ein 
Rechteck auf den Bildschirm, des¬ 
sen untere rechte Ecke sich mit 
dem Pointer bewegt. Die obere lin¬ 
ke Ecke steht fest und stimmt mit 
der Position des aktuellen Fen¬ 
sters überein. Nach einem Klick 
verschwindet der Rahmen wieder, 
und die x2- und y2-Werte des ak¬ 
tuellen Fensters werden entspre- 
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chend den letzten Rechteckaus- 


9D54: 

C9 

2B 

00 

1B 

4F 

2E 

01 

IE 

1B 

CD 

BB 

BB 

CD 

BC 

E4 

maßen korrigiert. Das Fenster soll- 


9D62: 

BB 

3A 

CC 

9E 

B7 

20 

OD 

21 

00 

FB 

11 

01 

FB 

01 

BC 

te dann neu gezeichnet werden. 


9D70: 

4F 

00 

3B 

00 

ED 

BO 

OB 

04 

21 

B5 

96 

C5 

E5 

7E 

75 


9D7E : 

B7 

28 

05 

7B 

3D 

CD 

Fl 

99 

El 

CI 

23 

10 

FO 

3A 

F5 



9D8C: 

64 

96 

CD 










^ r* 


i • 













LJ 


Menüzeile 


9D9A: 

2B 

10 

FD 

7E 

El 

C9 

CD 

1B 

97 

7D 

47 

21 

68 

96 

CB 


9DA8 : 

B7 

28 

03 

2B 

10 

FD 

36 

00 

C3 

55 

SD 

CD 

1B 

97 

B9 



9DB6: 

ES 

CD 

1B 

97 

E5 

CD 

1B 

97 

E5 

CD 

1B 

97 

E5 

CD 

EB 

GDM unterstützt automatisch ei- 


9DC4: 

1B 

97 

7D 

DD 

21 

03 

96 

DD 

23 

B7 

BB 

OB 

47 

11 

OA 

ne Menüzeile. Diese besteht aus 


9DD2: 

1B 

00 

DD 

19 

10 

FC 

FD 

El 

DD 

7E 

00 

FD 

77 

00 

CD 

mehreren Einträgen in der ersten 


9DE0: 

FD 

36 

01 

00 

FD 

El 

DD 

7E 

02 

FD 

77 

00 

FD 

3B 

ID 

Zeile des Bildschirms. Wenn der 


9DEE: 

01 

00 

FD 

El 

DD 

7E 

01 

FD 

77 

00 

FD 

36 

01 

00 

EB 

Benutzer den Pointer (beim Befehl 


9DFC: 

FD 

El 

DD 

7E 

03 

FD 

77 

00 

FD 

3B 

01 

00 

C9 

CD 

Bl 

:P.MOVE) auf eines dieser Wörter 


9E0A: 

1B 

97 

E5 

CD 

1B 

97 

ES 

CD 

1B 

97 

E5 

CD 

1B 

97 

E5 

führt, wird dieses invertiert darge- 


9E19: 

E5 

CD 

1B 

97 

DD 

21 

03 

9B 

DD 

23 

7D 

B7 

2B 

OB 

65 

stellt, und :P.MOVE wird beendet, 


9E26: 

47 

11 

18 

00 

DD 

19 

10 

FC 

El 

7D 

DD 

77 

00 

El 

OB 

ohne daß der Benutzer einen 


9E34: 

7D 

DD 

77 

02 

El 

7D 

DD 

77 

01 

El 

7D 

DD 

77 

03 

42 

KLICK ausgeführt hat. Das Pro- 


9E42: 

C3 

55 

9D 

00 

00 

00 

00 

CD 

1B 

97 

22 

47 

9E 

CD 

OD 

gramm sollte mit :P.ASK überprü- 


9E50: 

1B 

97 

7D 

32 

4B 

9E 

CD 

1B 

97 

7D 

32 

45 

9E 

67 

C2 

fen, ob der Pointer auf die oberste 


9E5E: 

3A 

4B 

9E 

BF 

CD 

75 

BB 

3E 

DE 

CD 

5A 

BB 

2A 

47 

FF 

Zeile (y = o) zeigt und dann ein 


9E6C: 

9E 

7E 

47 

3E 

CF 

CD 

5A 

BB 

10 

F9 

3E 

DF 

CD 

5A 

AB 

Drop-Down-Menü anzeigen. 


9E7A: 

BB 

3A 

45 

9E 

B7 

3A 

46 

9E 

3C 

32 

4S 

9E 

BF 

CD 

FO 

Welcher Menüpunkt angewählt 


9EBB: 

75 

BB 

3E 

CF 

CD 

5A 

BB 

2A 

47 

9E 

23 

E5 

DD 

El 

FB 

wurde, kann das Programm an- 


SE96: 

DD 

BE 

00 

DD 

BB 

01 

DD 

4B 

FF 

7E 

CD 

5A 

BB 

23 

3B 

hand des Befehls :M.ASK heraus- 


9EA4: 

10 

F9 

3E 

CF 

CD 

5A 

BB 

3A 

45 

9E 

B7 

3A 

46 

9E 

AO 

finden, Erst nach dem Befehl 


9EB2: 

3C 

BF 

CD 

75 

BB 

3E 

DD 

CD 

5A 

BB 

DD 

46 

FF 

3E 

OD 

:M.RESET ist es wieder möglich, 


9EC0: 

CF 

CD 

5A 

BB 

10 

F9 

3E 

DC 

CD 

5A 

BB 

C9 

00 

00 

B6 

ein Menü anzuwählen. Also vor 


9ECE: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CD 

1B 

97 

BO 

Schließen des Pull-Down-Menüs 


9EDC: 

E5 

DD 

El 

CD 

B9 

BB 

E5 

D5 

21 

00 

00 

16 

50 

IE 

F9 

unbedingt :M. RESET ausführen 


9EEA: 

01 

CD 

BB 

BB 

CD 

BC 

BB 

DD 

46 

00 

DD 

6E 

01 

DD 

36 

und dann mit :SCREENNEW das 


9EFB: 

BB 

02 

DD 

21 

CD 

9E 

DD 

36 

00 

00 

3E 

00 

32 

DB 

31 

Pull-Down-Menü selber ver- 


9F06: 

9E 

7E 

FE 

2F 

CC 

2D 

9F 

CD 

5A 

BB 

23 

10 

F4 

Dl 

C2 

schwinden lassen (evtl, auch noch 


9F14: 

El 

CD 

BB 

BB 

3E 

01 

32 

CC 

9E 

21 

00 

F8 

11 

01 

DA 

Menü-Bar neu zeichnen). Wie das 


9F22: 

FB 

01 

4F 

00 

3B 

FF 

ED 

BO 

C3 

55 

9D 

E5 

C5 

3E 

BE 

geht, zeigt Beispiel-Programm 2. 


9F30: 

20 

CD 

5A 

BB 

CD 

7B 

BB 

24 

DD 

74 

00 

DD 

23 

DD 

5B 

:M.ON, @ M$ zeigt die Menüzei- 


9F3E: 

3B 

00 

00 

CI 

El 

3E 

20 

C9 

3E 

00 

32 

CC 

9E 

32 

10 

le an. @m$ ist dabei die Adresse 


9F4C: 

DB 

9E 

32 

CD 

9E 

32 

D7 

9E 

CD 

B9 

BB 

E5 

D5 

21 

BE 

des Menüstrings m$, der folgen- 


9F5A: 

00 

00 

1B 

50 

IE 

01 

CD 

6B 

BB 

CD 

6C 

BB 

Dl 

El 

1F 

dermaßen aufgebaut sein muß: 


9F6B: 

CD 

BB 

BB 

C3 

55 

9D 

AF 

32 

D7 

9E 

32 

DB 

9E 

C9 

72 

m$ = 


9F76: 

CD 

1B 

97 

E5 

DD 

El 

3A 

DB 

9E 

DD 

77 

00 

DD 

36 

41 

Die einzelnen Menütitel (max. 9) 


9FB4: 

01 

00 

C9 

CD 

BE 

BD 

DB 

C3 

00 

AO 

00 

00 

00 

00 

CI 

getrennt durch / und beginnend 


9F92: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

und endend mit /, 


9FA0: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

z.B. m$ = „Hilfen/ Ablage/Ende" 


9FAE: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

Dieser Befehl kann beliebig oft 


9FBC: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

aufgerufen werden, z.B., um einen 


9FCA: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

Eintrag invertiert darzustellen. 


9FDB: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

'00 

00 

00 

00 

00 

:M.RESET hebt die Menüsper- 


9FEB: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

rung auf. Erst nach diesem Befehl 


9FF4: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CD 

BA 

BB 

ist es möglich, erneut ein Menü an- 


A002: 

BB 

CD 

E7 

BB 

32 

C9 

AO 

CD 

75 

AO 

21 

BF 

01 

22 

Bl 

zu wählen. Vorher reagiert der 


A010: 

CA 

AO 

11 

00 

00 

3E 

03 

32 

CC 

AO 

CD 

B5 

AO 

OE 

5F 

Pointer nicht mehr auf Menü- 


A01E: 

00 

3A 

CC 

AO 

47 

E5 

D5 

C5 

CD 

FO 

BB 

CI 

Dl 

21 

9F 

Berührung. Der Pointer sollte nicht 


AQ2C: 

C9 

AO 

BE 

El 

37 

20 

07 

A7 

CB 

11 

CB 

11 

1B 

05 

E7 

mehr auf den Menübalken zeigen. 

:MX)FF schaltet die Menüzeile 
wieder ab. 

:M.ASK, @P ergibt die Num¬ 
mer des zuletzt angewählten Me¬ 
nüs. P muß eine Integer-Variable 
sein. Ist das Ergebnis 0, wurde 
kein Menü gewählt. 


A03A: 

A04B: 

CB 

B4 

11 

AO 

37 

13 

CB 

E5 

11 

21 

2B 

7F 

2B 

02 

10 

37 

EO 

ED 

CD 

52 

BD 

El 

AO 

30 

79 

05 

CD 

2A 

AB 

Bl 


A056: 
A064: 
A072: 
AOBO: 
AOBE: 

CA 

AO 

AO 

11 

El 

AO 

3E 

18 

CD 

C9 

1B 

03 

A5 

B4 

3E 

C3 

BD 

3E 

AO 

OD 

23 

20 

1B 

C9 

CD 

7C 

BO 

CD 

E5 

B4 

B5 

7C 

B4 

3E 

AO 

CB 

B4 

AO 

42 

3E 

2B 

20 

3E 

CD 

OA 

11 

AC 

33 

IE 

CD 

00 

3E 

CD 

BB 

B4 

00 

02 

B4 

El 

AO 

22 

32 

AO 

2B 

3E 

CA 

CC 

3E 

02 

1B 

BE 

AD 

AD 

1B 

DE 


A03C : 

CD 

B4 

AO 

3E 

2A 

CD 

B4 

AO 

3E 

04 

CD 

E4 

AO 

3E 

52 



AOAA: 

7F 

CD 

B4 

AO 

3E 

02 

CD 

B4 

AO 

C9 

CD 

2E 

BD 

3B 

CI 

Knöpfe 


AOBB: 

FB 

CD 

BB 

BD 

C9 

3A 

CC 

AO 

FE 

03 

CB 

AF 

CB 

11 

7B 



AOCB: 

CB 

11 

C9 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

A6 

GDM unterstützt Knöpfe, die der 
Benutzer durch „Drücken“ mit 
dem Pointer anwählen kann. 


A0D4: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 
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:B,ON, NR*1, X*l, Y*l, @B$ gibt 
einen Knopf mit dem Text in b$ an 
der Stelle x, y aus. 


Sonstiges 


Der Benutzer kann jederzeit ei¬ 
ne Hardcopy, also einen Bild¬ 
schirmausdruck, anfertigen. Dafür 
ist der Befehl :hardcopy zustän¬ 
dig. Wenn der Drucker zum Zeit¬ 
punkt des Aufrufs nicht bereit ist, 
passiert gar nichts. Die Hardcopy 
funktioniert nur auf Epson- 
kompatiblen Druckern, z.B. Star 
SG-10. 

Folgende Aktionen sollten vom 
Programm überwacht werden: 

Windows verschieben, vergrö¬ 
ßern, verkleinern, schließen und 
obenauflegen und alle Benutzer¬ 
aktivitäten überwachen. Außer¬ 
dem sollte ein Drop-Down-Menü 
angezeigt werden, wenn der Me¬ 
nübalken sichtbar ist und der Poin¬ 
ter die x-Position 0 hat. tmb 


Die Fensterkontrollen: 


Beue3un3sfeld Voll^ei-d 



flr-teit s-fiaecfce 


Das Progrann sollte die Felder in entsprechender 
Heise interpretieren. 


Listing Nr. 1 

10 REM Dieses Programm erlaubt es, ein Fenster 
EO REM beliebig zu vergroessern und zu verschieben 
• 

30 REM 

40 DEFINI p,x,y 

50 xl—O:y1—0:xS“0:y B—0:px = Q:py—O * sonst liefert @ 
xl... Impraper argument 

BO ! UI. POS, 0 , EO, 3,70 , EO : ! U. POS ,1,14,0,76,33: iU.ACTI 
UE,1: ! Ui.ACTIUE,0:GOTO BO ’Fenstergroesse setzen 
, aktivieren 

70 ISCREENNELü ' Fenster zeichnen 

BO PRINTrPRINT ” Bewegen Sie das Fenster!”:!P.MDU 
E * auf KLICK warten 

30 I P . ASK , G?px , G?py ’ Pointerposition ermitteln 

100 ! UJ. ASK,0,Gxl, 0y 1, 0xE, 0y3 * Fensterposition erm 

itteln 

110 IF px=xl AND py-yl THEN GOSUB 150:!FRAMEMOUE:G 
□TD 70 * Fenster bewegen 

1E0 IF px=xE-l AND py=yl THEN ! UJ. PDS, 0, 1,1,7B, E3: G 
□TD BO 'ganzer Bildschirm 

130 IF px-xE-1 AND py*=y3 THEN GOSUB 150: 1FRANESI2E 
:GOTO 70 'Fenstergroesse andern 

140 GOTO BO 

150 bS-"”:F0R t-1 TO 100:bS=bS+INKEYS:NEXT:RETURN 
'Tastenpuffer entleeren 
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3EH0 i I! ffi!! P711 rjB 


■ 


GDM - Graphic Desk Manager 
Copyright 198G Thowas M.Binzinger 

teadu 
harücopg 
teadu 
Iharacopy 
teady 
? 18,-a 
teadu 
Ihardcopy 





Usano Nr 2 

10 ' Dieses Programm zeigt, wie die einzelnen 
20 ’ Menueintraego ebgefregt werden koennen 
30 * 

40 nS-"/Hilfe/Ablage/Druck/Ende/-:OEFINT p:p-0:px- 
O.-py-O 

50 :n.ON,0mS 

BO !P.ASK,0px,0py : !P.POS,px*l,MINCpy+1,23) 

7C sn.RESET:!P.MOUE:1SCREENNEU:tfl.ASK.ep 
00 IF p-0 OR p>4 THEN 60 

30 * diese Datazeile enthaelt x-Position, Laenge u 
rd Hoehe der Drop-Downs 

100 DATA 3,15,20,10,20,5,18,13,10,25,25.10 

110 RESTORErFOR t-1 TO p:READ x,b , h:NEXT:Xl"(x-15* 

0-1 : x2*xl-*b*B*l : y 1*383 :y2-yl-(b*16-*2) 

120 FÜR a-0 TO 1 : PLOT xl-a,y1,1 : DRAU xl-a,y2:DRAU 
x2-a,y2:DRAU x2-a,yl:NEXT arUINDOU #7,x,x*b-l.2,2* 
h-l:CLS #7:PRINT #7,CHRSC10)" Pul1-Down'•" 

130 GOTO 60 


Knoepf 

IB.ON 

e: 
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CPC-SpeicHer 

optimal 

genutzt! 

Optimizer für CPC-BÄSIC-Programme 

Lange Variablennamen sind sehr komfortabel. Dies wissen sicher auch alle CPC-Benutzer zu schätzen. 
Dennoch: Komfort kann Nachteile haben. Variablennamen benötigen Speicherplatz und zwar für jeden wei¬ 
teren Buchstaben ein Byte mehr. Bei einem langen Textverarbeitungsprogramm kann dies schon einiges 
an verschwendetem Speicherplatz ausmachen. Der Text muß ja schließlich auch irgendwo gespeichert 
werden. Auch REM-Zeilen kosten Speicherplatz und sind für das Funktionieren des Programms nicht not¬ 
wendig. Dieser Optimizer schafft da Abhilfe. Mit seiner Hilfe können alle REM-Anweisungen aus einem 
Programm entfernt werden. Variablennamen werden automatisch auf maximal zwei Buchstaben plus Typ¬ 
kennzeichen gekürzt. 


Ein paar Einschränkungen hat 
die Sache jedoch. In dem zu opti¬ 
mierenden Programm dürfen nie 
mehr als 26 Variablen mit gleichem 
Typkennzeichen und Anfangs¬ 
buchstaben Vorkommen, da der 
Optimizer den Anfangsbuchsta¬ 
ben beibehält (falls man das Pro¬ 
gramm vielleicht doch noch einmal 
bearbeiten will!) und die jeweils 
zweiten Buchstaben alphabetisch 
verteilt. 

Es kann auch passieren, daß der 
Optimizer Variablen wie IF oder 
TO verwendet. Dies muß dann je¬ 
weils durch einen Probelauf korri¬ 
giert werden. Der Computer mel¬ 
det ja Fehler, wenn er solche Zeüen 
bearbeitet. 


Die Anwendung 


Das zu bearbeitende Programm 
muß als ASCII-File abgespeichert 


sein. Zu diesem Zweck lädt man es 
und speichert es erneut mit SAVE- 
"name ,, ,A. Nachdem man die Cas- 
sette an den Anfang des Files zu¬ 
rückgespult hat, lädt man den Opti¬ 
mizer und startet ihn. Dieser erwar¬ 
tet dann die Eingabe des Filena¬ 
mens und lädt das Programm in die 


• OPTI 


String-Feld variable pro$0- Das Pro¬ 
gramm arbeitet in drei Schritten 
und zeigt an, in welchem es sich be¬ 
findet und welche Zeile gerade be¬ 
arbeitet wird. Wenn das Programm 
einwandfrei läuft, kann es ohne 
Schwierigkeiten auch auf sich 
selbst angewandt werden. Nach 
Beendigung der Arbeit wird ein 
ASCII-File mit dem Namen OP¬ 


TI.File erzeugt. Darin befindet sich 
das fertig optimierte Programm. Es 
kann nun ganz normal geladen und 
gestartet werden. In Zeile 20 des 
Optimizers sollte die Anzahl der 
Zeüen und Variablen mit möglichst 
niedrigen Werten vereinbart wer¬ 
den. 


Optimierter 

WORDPROCESSOR 


Das Programm Wordprocessor II 
aus dieser Ausgabe ließ sich ein¬ 
wandfrei optimieren. Es wurden 
ca. 3K Speicherplatz gespart, wo¬ 
durch die Anzahl der Zeilen, die 
mit diesem Textverarbeitungspro¬ 
gramm bearbeitet werden kön¬ 
nen, von 230 auf 270 erhöht wer¬ 
den konnte. (tb) 
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1 

'************************** 

470 

' *** Sortieren der Variablen *** 

2 

'** Qptimizer ** 

480 

' 

3 

'** (c) by THOMAS BARNDT ** 

490 

FOR i = 1 TO vnr—1 

4 

'************************** 

500 

f 1=0 

5 

* 

510 

FOR j=vnr-l TO i STEP -1 

10 

MODE 2 s DEFINT a-z:BORDER 13 

520 

IF var*(j-1,0)>var*(j,0) THEN 

20 

anzvar=100:anzzei1=500 


h*=var*(j,0):var*(j,0)=var*( j- 

30 

DIM praf(anzzei1),var$(anzvar, 1) ,h 


1,0):var*(j — 1,0)=h*:f1=1 


ochpos(6,1) 

530 

NEXT j 

40 

LOCATE 30,3:PRINT CHR*(24);" Optim 

540 

IF f1=0 THEN 570 


izer by THBCS ";CHR*(24):LOCATE 1, 

550 

NEXT i 


6 

560 

* 

50 

* 

570 

' *** Neue Variablen erzeugen *** 

60 

*** Programm einiesen *** 

580 

9 

70 


590 

merk*="" 

80 

i=0:vnr=0 

600 

FOR i=0 TO vnr—1 

90 

OPENIN"" 

610 

typ*=RIGHT*(var*(i,0),1) 

100 

WHILE NOT EOF 

620 

typ=0 

110 

IF i>anzzei1 THEN PRINT CHR*(7); 

630 

IF typ*="*" THEN typ=l 


"*** Programmfeld zu klein ***": 

640 

IF typ*="7." THEN typ=2 


END 

650 

IF typ*="!" THEN typ=3 

120 

LINE INPUT#9,pro*(i) 

660 

var*(i,1)=LEFT*(var*(i,0),1) 

130 

i=i+l 

670 

IF var*(i,1> < >merk* THEN chr(0) = 

140 

WEND 


97:ehr(1)=97:ehr(2)=97:ehr(3)=97 

150 

CLOSEIN 

680 

merk*=var*(i,1) 

160 

' 

690 

IF INSTR(pr*(typ),var*(i,1))=0 T 

170 

*** REM's entfernen und Variab 


HEN pr*(typ)=pr*(typ)+var*(i,1>: 


lentabelle erstellen *** 


GOTO 710 

180 

* 

700 

var*(i,1)=var*(i,1)+CHR*(ehr(typ 

190 

zei1en=i—1 


)):ehr(typ)=chr(typ)+1:IF ehr (ty 

200 

LOCATE 1,10:PRINT "Pass 1 working 


p)>122 THEN PRINT CHR*(7);"* Var 


an line" 


iablenfehler *":END 

210 

FOR j=0 TO Zeilen 

710 

IF typ>0 THEN var*(i,1)=var*(i,1 

220 

LOCATE 23,10:PRINT VAL(pro*(j)> 


)+typ* 

230 

zeile*=pro*(j) 

720 

NEXT 

240 

GOSUB 1190 

730 

* 

250 

t*=LEFT*(z ei1e*,1) 

740 

' ** Neue Variablen einsetzen ** 

260 

IF t*= . OR LEFT$(zei1 e* ,3)="RE 

750 

' 


M" OR t*=":" THEN pro$(j > :GOT 

760 

GOSUB 1870 


0 290 

770 

LOCATE 1,14:PRINT "Pass 3 working 

270 

IF LEFT*(zeile$,4)="DATA" THEN 2 


on line" 


90 

780 

FOR i=0 TO zeilen 

280 

GOSUB 1090 

790 

wert=VAL(pro*(i)) 

290 

NEXT j 

800 

LOCATE 23,14:PRINT wert 

300 

‘ 

810 

IF LEFT*(RIGHT*(pro*(i),ABS(LEN( 

310 

*** GOTO's und GOSUB's aendern * 


pro*(i))-LEN(STR*(wert)))),4)="D 


** 


ATA" THEN 960 

320 

* 

820 

GOSUB 1780 

330 

LOCATE 1,12s PRINT "Pass 2 working 

830 

FOR j=vnr 1 TO 0 STEP -1 


on line" 

840 

varpas=0 

340 

FOR j=0 TO zeilen 

850 

varpos=INSTR(varpos+1,pro*(i), 

350 

LOCATE 23,12:PRINT VAL(pro*(j>> 


var*(j,0)) 

360 

in=0 

860 

IF varpos=0 THEN 950 

370 

in=INSTR(in+1,pro$(j),"GOSUB") 

870 

q=0 

380 

IF in>0 THEN in=in+6:GOSUB 1560: 

880 

IF varpos>hochpos(q,0) AND var 


GOTO 370 


pos<bochpos(q,1) THEN 850 

390 

in=INSTR(in+l,pro*(j>,"GOTO") 

890 

q=q+l 

400 

IF in>0 THEN in=in+5:GOSUB 1560: 

900 

IF q<=k1 THEN 880 


GOTO 390 

910 

t*=MID* (pro*(i),varpos—1,1) 

410 

in=INSTR(in+1,pro*( j) ,"THEN") 

920 

IF t*>="a" AND t*< = "z" OR INST 

420 

IF in>0 THEN in=in+5:GOSUB 1560: 


R("0123456789.",t*>>0 THEN 850 


GOTO 410 

930 

pro*(i)=LEFT*(pro*(i),varpos—1 

430 

in=INSTR(in+1,pro*<j),"ELSE") 


)+var*(j,1)+RIGHT*(pro*(i),LEN 

440 

IF in>0 THEN in=in+5:GOSUB 1560: 


(pro*(i))-(varpos-1)-LEN(var*( 


GOTO 430 


j,0) )> 

450 

NEXT j 

940 

GOSUB 1780:GOTO 850 

460 

* 

950 

NEXT j 
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960 NEXT i 
970 ' 

980 ' ** Leerzeichen und : entfernen * 
* 

990 ' 

1000 FÜR i=0 Tü zeilen 
1010 t*=RIGHT*(pro*(i),1) 

1020 IF t$=":" OR t$=" " THEN pro*(i> 
=LEFT*(pro!<i),LEN(pro*(i>)-l) :G 
OTO 1010 
1030 NEXT 
1040 ' 

1050 ' 

1060 ' 

1070 GOTO 1950 
1080 ' 

1090 ' *** Variablennamen suchen *** 
1100 ' 

1110 IF zei1e*="" THEN RETURN 
1120 t*=LEFT*(zeile*,l> 

1130 IF t*=CHR*(34) THEN GDSUB 1250:GOT 
O 1110 

1140 IF t*="•” OR LEFT*(zei1e$,3)="REM“ 
THEN GOSUB 1490:RETURN 
1150 IF t*>="a" AND t*<="z" THEN GOSUB 
1330:GOTO 1110 

1160 zei1e*=RI6HT*(zei1e$, LEN(zei1e*)-1 
) 

1170 GOTO 1110 
1180 ' 

1190 ' *** Zeilennummer entfernen *** 

1200 ' 

1210 t*=LEFT* Czeile$,1) 

1220 IF t*>="0" AND t*<="9" OR t*= n ” T 
HEN zei1e*=RIGHT*(zeile*,LEN Czeile 
*)—1)5 GOTO 1210 
1230 RETURN 
1240 ' 

1250 ' *** Strings entfernen *** 

1260 ' 

1270 zei1e*=RIGHT*(zeile*,LEN(zei1e*)-1 
) 

1280 IF LEFT*(zeile*,1><>CHR*(34) THEN 
1270 

1290 zeile*=RIGHT*(zeile$,LEN(zeile*>-l 
) 

1300 RETURN 
1310 ' 

1320 ' 

1330 ' *** Variablenname in Tabelle ein 
tragen 
1340 ' 

1350 variable*^”* 

1360 variab1e*=variab1e*+t* 

1370 zei1e*=RIGHT*(zei1e*, LEN(zei1e*)—1 
) 

1380 IF zei1e*="" THEN 1410 
1390 t*=LEFT*(zei1e*,1) 

1400 IF t*>="a" AND t*<="z" OR INSTRCO 
123456789.7.!*" ,t*) >0 THEN 1360 
1410 FOR k=0 TO vnr-1 

1420 IF var*(k,0)=variable* THEN RETU 
RN 

1430 NEXT 

1440 IF vnr >anzvar THEN PRINT CHR*(7);‘* 
* Variablenfeld zu klein *":END 
1450 vart(vnr,O > =variab1e$ 

1460 vnr=vnr+l 
1470 RETURN 


1480 ' 

1490 ' *** REM's entfernen -*** 

1500 ' 

1510 in=INSTR(pro*(j),zeile*)-l 
1520 pro*(j)=LEFT*(pro*(j),in) 

1530 RETURN 
1540 ' 

1550 ' 

1560 ' *** Zeilennummer ? *** 

1570 ' 

1580 IF VAL(MID*(pro*(j),in,1))>0 THEN 
1600 

1590 RETURN 
1600 ' 

1610 ' *** Zeilennummer suchen und erse 
tzen 
1620 ' 

1630 inn=in:znr*=" H 

1640 znr*=znr*+MlD*(pro*(j),in,l) 

1650 in=in+l 

1660 IF MID*(pro*(j) ,in,1> >="0" AND MID 
*<pro*<j>,in,1)<="9" THEN 1640 
1670 znr=VAL(znr*> 

1680 FOR i=0 TO zeilen 
1690 1znr=VAL(pro*(i>) 

1700 IF lznr=znr THEN RETURN 
1710 IF 1znr>znr THEN 1740 
1720 NEXT i 
1730 ' 

1740 pro*(j)=LEFT*(pro*(j) T inn-1)+RIGHT 
*(STR*(1znr),LEN(STR*(1znr))-l)+RI 
6HT*(pro*(j),LEN(pro*(j))-(inn-1)- 
LEN(znr*)) 

1750 in=inn+LEN(STR*(lznr))-1:IF MID*(p 
ro*(j),in,1)" THEN in=in+l:GOTO 
1600 

1760 RETURN 
1770 ' 

1780 ' ** Zeichenkettenpositionen ermit 
teln ** 

1790 ' 

1800 k=0:k1=0:hochpos(k,1)=0 
1810 hochpos(k,0)=INSTR(hochpos(k1,1)+1 
,pro*(i),CHR*(34)) 

1820 hochpos(k,1)=INSTR(hochpos(k,0)+1, 
pro*(i),CHR*(34)) 

1830 IF hochpos(k,0)>0 THEN k=k+l:kl=k— 
1:GOTO 1810 
1840 RETURN 
1850 ' 

1860 ' 

1870 ' ** Gleichbleibende Variablen aus 
Tabelle ** 

1880 ' 

1890 k=0 

1900 FOR i=0 TG vnr-1 

1910 IF var*(i,OX>var*(i,l) THEN var 
*(k,0)=var*(i,0):var*(k,1>=var*( 
i,1>:k=k+l 

1920 NEXT 
1930 vnr=k 
1940 RETURN 
1950 ' 

1960 ' *** Variablentabelle ausgeben ** 
* 

1970 ' 

1980 PRINT:PRINT" Variablen:":PRINT 
1990 FOR 1=0 TO vm—1 
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2000 PRINT var$<1,0);TAB(20);" - ";va 

2070 SPEED WRITE 1 

r$(1,1) 

2080 üPENOUT"opti . -f i 1 e" 

2010 FOR warten=0 TO 500:NEXT 

2090 FOR 1=0 TO Zeilen 

2020 NEXT 

2100 IF pro$(i)< >"" THEN PRINT#9,pro$ 

2030 PRINT 

(i ) 

2040 ' 

2110 NEXT 

2050 ' ** Programm abspeichern ** 

2120 CLOSEOUT 

2060 ' 

| 


Maschinensprache 

von BASIC 

erzeugt 


Computer: CPC 464 

Sprache : BASIC 

Peripherie: evtl. Drucker, Disket¬ 
te oder Kassette 

Um Programme in Maschinen¬ 
sprache auch Anwendern, die kei¬ 
nen Assembler besitzen, zugäng¬ 
lich zu machen, sollte zu jedem As¬ 
semblerprogramm auch ein in BA¬ 
SIC geschriebener Lader gehö¬ 
ren. Dieser besteht im wesentli¬ 
chen aus Data-Zeilen, die das As¬ 
semblerprogramm im Maschinen¬ 
code enthalten, und einer For-Next- 
Schleife, in der der Code in die ent¬ 
sprechenden Speicherstellen ge- 
poket wird. Bei längeren Ladern 
sind Tippfehler in den Data-Zeilen 
fast unvermeidlich. Es liegt also na¬ 
he, den Computer diese Arbeit 
selbst durchführen zu lassen. 

Das vorliegende Programm lie¬ 
fert von jedem im Speicher befind¬ 
lichen Maschinenprogramm inner¬ 
halb kürzester Zeit den dazugehö¬ 
rigen BASIC-Lader einschließlich 
Prüfsumme. Der Lader kann auf 
dem Drucker ausgegeben oder 
unter einem frei wählbaren Namen 
auf Diskette oder Kassette abge¬ 
speichert werden. 

Der auf Diskette/Kassette abge¬ 
speicherte BASIC-Lader wird wie 
gewohnt, z.B. mit ‘RUN „Name" ’, 
geladen und gestartet. Während 
des Programmablaufs wird der In¬ 
halt der Data-Zeilen aufaddiert, mit 
der Prüfsumme verglichen und 
eventuell eine Fehlermeldung aus¬ 
gegeben. Bei fehlerfreiem Ablauf 
wird die korrekte Speicherung des 
Maschinenprogramms bestätigt 
und der Speicherbereich angege¬ 
ben. 


10 

20 

30 

40 

50 

60 

79 

30 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 


230 

240 

250 

260 

270 

280 

290 


*** ERSTELLEN EINES BASIC-LADERS *«* 
*** Copyright- 1985 by Beate Lang *** 


8 Zeichen>“ . na* 


REM 
REM 
REM 

MODE 2•DEFIHT a-z 

INPUT "Marne- des Maschinenprogramms <max. 

IF LEN( na¥ »3 THEN 50 

INPUT"Anfangsadresse des Maschinenprogramms ";adl 
INPUT"Endadresse des Maschinenprogramms " ad2 
INPUT"Bei welcher Zeilennummer soll der Lader beginnen " :z 
n=< ad2+l-adl VI7+2. 49: DIM feldSCnV i=adl ; s=0 
FOR k=0 TO n-4 

ad=PEEK< i > : s=s+*d: feld*< k >=3TR$< z >+" DR TR V+HEX*< ad > 

FOR j = i +1 TO i + 16 

ad=PEEK< j j - s=s+ad : feld*< k >=feld$< k }+“, 8,"+HEX« ad > : HEXT 
i = .j Z=Z+10NEXT 

ad=PEEK< i > : s=s+ad : feldSC k >=STR*C z >+" DRTR V+HEX« ad 'J 
WHILE i<ad2 

i = i +1:ad=PEEK<i> = s=s+ad:fe1d$< k >=feld*< k >+ ",Sä"+HEX*<ad > 

WEND 

z=z+10 :feld*Cn-2 VSTRSK z >+" s=0 : FOR i»&”+HEX*Cadl>+" TO V 

+HEi<*< ad2 >+ " : RERD a ■ pok e i .. a : s=s+a: next" 

z=z+10: feld$( n-l )=STRS( z )+" ?:IF sO"+STRS<s)+" THEN ?'* 

+CHR*< 34 >+ "Fehler in den Data-Zei len ! "+CHRS< 34 >+" : END" 

Z=Z+10 f eldSC n VSTR*< z )+" ?"+CHR*< 34 >+•* Programm "+na* 

+ " korrekt geladen., Startadresse ; V+HEX$C adi > 

+ " Endadresse : 3«"+HEX»C ad2 >+CHR*C 34 > 

w=0 : PRINT : GOSUB 290 :PRINT : PR INT "Ausgabe auf Drucker <jxn> ?" 
CRLL S«BB06 : IF INKEYX45V0 THEN W=8: GOSUB 290 
PR INT" Ausgabe auf DiskettexKassette (j/n) ?":CRLL S,BB06 
IF INKEYC 45 >=0 THEN OFENOUT na$+" . bas" w=9 : GOSUB 29© : CLOSEGUT 
PRINT"Soll noch ein Lader erstellt werden <j.-'n> ?" 

CRLL &BEQ6:IF INKEY<45>*0 THEN ERRSE feld* GOTO 48 ELSE END 
FOP k=0 TO n : PR I NT (tu, f e l d*< k > : NEXT : RETURN 
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Graphic-Processor für 
den Schneider CPC 464 


Ich möchte Ihnen hier ein 
Graphic-Utility für den Schneider 
CPC 464 vorstellen. Darin wurden 
20 neue und nützliche Befehle im¬ 
plementiert. Als einige Höhepunk¬ 
te wären die Circle-, die Paint-, die 
Shaperoutine und die Möglichkeit, 
mehr Farben als normalerweise 
gleichzeitig benutzbar, zu nennen. 

Zuvor, bevor ich mich an die Er¬ 
läuterung dieser neuen Komman¬ 
dos mache, möchte ich bemerken, 
daß in dieser Graphikhilfe kein 
byte in irgendeiner Weise von ei¬ 
nem anderen Programmierer ab- 
gekupfert wurde. Die Programm¬ 
logik entstand unabhängig von an¬ 
deren auf dem Markt oder in Zeit¬ 
schriften erschienenen Program¬ 
mierhilfen. Lediglich einige Ideen 
hierzu wurden aufgegriffen. 


Grafikhilfe 


Nach dem Eingeben des BASIC- 
Laders und dem Start desselben 
sollte man das solchermaßen ge¬ 
nerierte Maschinenprogramm mit 
'SAVE"name", b, 39000, 1945, 

39000' abspeichern, bevor man es 
aufruft. 

Das Maschinenprogramm mel¬ 
det sich, sofern es korrekt erzeugt 
wurde, mit seinem Namen und ei¬ 
nem Hilfsmenü. 


RSX 


Als RSX (Resident System eXten- 
sion — nicht 'Resistent' System eX- 
tension, wie manche glauben) ste¬ 
hen nun die folgenden Befehle zur 
Verfügung. 

- !GPEN, <graphicspen>: setzt 
die Farbe des Graphikstiftes. Para¬ 
meter werden nicht auf ihre Kor¬ 
rektheit hin überprüft. 

Beispiel; IGPEN.3: TAG: PRINT" 
Nun wird Pen 3 verwendet": TAG- 
OFF 


GPAPER 


- ! GPAPER, <graphicspaper>: 
setzt die Farbe des Graphikfen- 
sters/-hintergrundes. Parameter 
werden nicht überprüft. 

Beispiel: !GPAPER;":CLG:REM 
Graphikfenster wird mit Ink 2 ge¬ 
löscht 

- !GMODE, <graphicsmode>: 
setzt die Zugriffszeit des Graphik¬ 


stiftes auf den Graphikhinter¬ 
grund; dabei sind folgende Mög¬ 
lichkeiten gegeben: 

graphicsmode = 0 = = > Force- 
Modus, 

1 = = > Xor-Modus, 

2 = = > And-Modus, 

3 = = > Or-Modus. 

Parameter werden nicht über¬ 
prüft. 

Beispiel: IGMODE; 1: MOVE 0,0: 
DRAW 639, 399: DRAW 0,0: REM 
Linie wird durch einmaliges Dar- 


100 ' 

110 ' Beispielprogramm fuer die Nutzung des Graphic-Processors 
120 * 

130 ' Autor: O. Welsch, 

140 ' Stand: 25/10/86 
150 ' 

160 ’ 

170 MODE 1 

180 '** Farben fuer die Border, Ink 0 und Ink 1 setzen fuer jeden der 
190 '** sechs moeglichen Balken 

200 ÖMULTICOLOR,1,1, 26,2, 11,26, 11, 11,3,14,11, 19,19,11,18,9, 11, 18 
210 PRINT TAB(9)"Demonstrationsprogramm" 

220 PRINT TAB(16)"fuer den" 

230 öCHARSIZE.O ’* elongierte Zeichen einschalten 
240 PRINT" GRAPHIC-PROCESSOR" 

250 ÖCHARSIZE ’# elongierte Zeichen wieder aussohalten 

260 INK 2,0:INK 3,23 '* "globalen" Inks 2 und 3 setzen (schwarz, blaugruen) 
270 öGPAPER,0 '* Ink des Grafikhintergrunds festlegen 
280 '** Huegel 
290 öGPEN,2 

300 BCIRCLE,200, -220, 640, 300, 340,45 

310 ÖGPEN,1 '* Ink 1 des Grafikvordergrunds ist abhaengig von Multicolor ! 
320 MOVE 320,0:ÖPAINT '* den Huegel mit dem Pen 1 fuellen 
330 ’** Fahnenmast 
340 ÖGPEN,2 

350 ÖPOLYGON,150,80.154,350, 162,350, 166,80 
360 ÖGPEN,3 

370 MOVE 15B,90:ÖPAINT ’* Fahnenmast ausfuellen 
380 '** Knopf auf Fahnenmast 
390 ÖGPEN,2 

400 öCIRCLE,158,355,12,5,200,160 
410 MOVE 158,355:ÖPAINT 
420 ’** Flagge 

430 MOVE 162,350:DRAWR 20,-50 
440 ÖRECTANGLE,182,304,206,-112 
450 MOVE 182,200:DRAWR -16,-122 
460 ’** Sohneiderlogo 
470 öGPEN,1 

480 ÖCIRCLE,240,267,30,30, 180,0 

490 ÖCIRCLE,240, 267,5,5,180,0 

500 ÖPOLYGON, 240,297,280,297, 2B0, 272, 240,272 

510 ÖPOLYGON,240,260,280,260,280,237,240,237 

520 ÖCIRCLE,330,230,30,30,0, 180 

530 ÖCIRCLE,330,230,5,5,0,180 

540 ÖPOLYGON,330,260,290,260,290,237, 330,237 

550 ÖPOLYGON,330,225,290,225,290,200, 330,200 

560 öGPEN,1 ' rot 

570 MOVE 240,250:ÖPAINT ’* linken Teil des Logos ausfuellen 
580 ÖGPEN,2 ’ schwarz 

590 MOVE 330,220:ÖPAINT '* rechter Teil des Logos ausfuellen 

600 öGPEN,3 ' Pastellblaugruen 

610 MOVE 184,200:ÖPAINT ’* Farbe der Flagge 

620 GOTO 620 













Schneider spezial 


129 


Utility 


GRAPH I C-PROCESSOR 1 


100 
110 
120 ’ 

130 ’ Autor: O.Welsch 
140 ’ Stand: Oktober 1985 
150 ’ 

160 ’ 

170 IF HIMEM>38999 THEN MEMORY 38999 
180 DEFINT a-z:DEFREAL s 
190 RESTORE 
200 DIM psum{31) 

210 sum=0 

220 FOR lin=l TO 31 
230 READ psum(lin) 

240 sum=sum+psum(lin) 

250 NEXT 

260 IF sum<>207974 THEN PRINT"Error in checksums":PRINT" 
270 sum=0:count=0:lin=0:er=0 »ERROR*“:END 

280 FOR adr=UNT(39000) TO &9FF0 
290 READ byte$ 

300 byte=VAL("&"+byte$) 

310 sum=sum+byte 
320 POKE adr.byte 
330 count=count+l 

340 IF count=64 THEN GOSUB 420:sum=0:count=0 

350 NEXT 

360 GOSUB 420 

370 IF er THEN PRINT"»ERROR*":END 

380 SAVE"grprocessor.code",b,39000,1945,39000 

390 PRINT'Link: CALL 3900Ö" 

400 END 
410 * 

420 ’ PROCEDURE eheeksum 
430 lin=lin+l 

440 IF sum=psum<lin) THEN RETURN 
450 er=-1 

460 PRINT"Data error between";1000+(lin-1)*4;"and"; 

465 STOP 1000+(lin-1)*4+3 

470 RETURN 
480 ' 

490 ’ Checksums 

500 DATA 8833,6791,5516,7283,7269,4232,7617,6932 
510 DATA 8462,5695,2090,7891,9053,9663,10185,8673 
520 DATA 5527,13126,7721,8120,6980,7297,7289,7405 
530 DATA 5536,4541,4261,4084,4271,4446,1185 
540 ' 

1000 DATA 3E,C9,21,58,98,77,23,01,68,98,CD,Dl,BC,C3,7B,9E 

1001 DATA A6,98, C3, 41, 99, C3, 47, 99, C3, 4D, 99, C3, 53, 99, C3, 73 

1002 DATA 99,C3,DA,99,C3,16,9A,C3,1A,9A,C3,2A,9A,C3,2F,9A 

1003 DATA C3, 19,BD,C3, 39,9A, C3,48,BB,C3, 41,9A,C3,OC,9B,C3 

1004 DATA 07,9B,C3,53,9B,C3,90,9B,C3,EF,9C,C3,7B,9E.47,50 

1005 DATA 45,CE,47, 50, 41,50,45, D2,47,4D,4F,44,05,43,48,41 

1006 DATA 52,52,45,41,C4,43,46,41,52,53,49,5A,C5,53,48,41 

1007 DATA 50,C5,53, 43, 52,4F,4C,4C,55,DO,53,43,52,4F,4C,4C 

1008 DATA 44,4F,57, CE,53,43,52,4F,4C,4C,45,46,04,53,43,52 

1009 DATA 4F, 4C, 4C, 52, 49, 47, 48, D4, 46, 52, 41,4D, C5, 4F, 4E, 2E 

1010 DATA 42,52,45,41,4B,2E,53,54,4F,D0,4F,4E,2E,42,52,45 

1011 DATA 41,4B,2E,43, 4F,4E,D4,4D,55,4C,54,49,43,4F,4C,4F 

1012 DATA D2,50,4F,4C,59,47,4F.CE,50,4F,4C,59,47,4F,4E,D2 

1013 DATA 52,45,43,54, 41, 4E, 47, 4C, 05,43,49,52,43,4C,C5, 50 

1014 DATA 41,49,4E,D4,48,45,4C,DO,00,DD,7E,00,C3,DE,BB,DD 

1015 DATA 7E,00,C3,E4,BB,DD,7E,00,C3,59,BC,11,FF,FF,3D,20 

1016 DATA 10,CD,78,BB,CD,87,BB,30,08,CD,60,BB,30,03,16,00 

1017 DATA 5F,DD,6E,00,DD,66,01,73,23,72,C9,4F,3A,1B, AC, FE 

1018 DATA C9,20,03,3A,C8,Bl,B7,C8,47, 79,B7,28,50,OD,CO, DD 

1019 DATA 7E,00,E6,01,B8,DO,4F,78,32,1B,AC,79,32,C8,Bl,48 

1020 DATA OD,OD,28,14,FE,01,20,08,11,88,44,21,22,11,18,25 

1021 DATA 11,CC,33,21,22,11,18,ID,FE,02,20,08,11,80,40,21 

1022 DATA 20,10,18,11,3D,20,08,11,CO,30,21,OC,03,18,06,11 

1023 DATA FO,OF,21,20,10,ED,53,CF,Bl,22,Dl,Bl,C9,3E,C9,48 

1024 DATA 18, B6, 3D, F8, DD, 6E, 00, DD, 66,01,46, 23,5E, 23, 56, 1A 

1025 DATA 13,05,32,02,9A,4F,OC,C5,D5,CD,13,9A,CD,ID,BC,CB 

1026 DATA F4,CB,FC,Dl,CI,E5,OD,20,07,OE,00,El,CD,26,BC,E5 

1027 DATA 1A,AE,77,13,CD,20,BC,10,ED,El,C9,CF,1A,98,06, FF 

1028 DATA 18,02,06,00,3A,90,B2,4F,CD,69,BB,79,D2,4D,BC,C3 

1029 DATA 50,BC.11,02,00,18,03,11,FE,FF,CD,OB,BC,19,C3,05 

1030 DATA BC,11,5E, C4,OE,FD,C3,45,BB,B7,CA,CE,9A,FE,13,DO 

1031 DATA 4F,3D.07, 16,00,5F,DD,19,21,D5,9A,E5,06,12,3E,14 

1032 DATA 77,23,10,FC,El,FD,21,E7,9A,41,DD,7E,00,E6,IF,32 

1033 DATA 6C,9A,FD,7E,00,F6,40,77,23,DD,2B,DD,2B,10,EB,AF 

1034 DATA 32,D4,9A,01,07,BC,ED,49,01,IF,BD, ED,49,21,98, 9A 

1035 DATA E5,CD,E6,BC,El,11,Al,9A,06,81,CD,19,BD,C3,EO,BC 

1036 DATA 00,00,00,00,00, 00, 00,00, 00, 21, D4,9A, 34, 7E, FE, 06 

1037 DATA 20,01,AF,77,06,16,10,FE,50,47,07,80,5F,23,19,01 

1038 DATA 10, 7F, ED, 49, 4E, ED, 49,23, AF, ED, 79, 4E, ED, 49, 23, 3C 

1039 DATA ED,79,4E, ED, 49, C9, 21,98, 9A,C3,E6,BC, 00,00,00, 00 

1040 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,14 

1041 DATA 04,15,10,18,1D,0C,05,OD,16,06,17,IE,00,IF,OE,07 

1042 DATA OF,12,02,13,1A,19,1B,OA,03,OB,01,08.09,10,11,11 

1043 DATA 18,F9,18,03,11,00,F6,B7,C8,4F,OF,D8,47,7A,32,4E 

1044 DATA 9B.7B,32,34,9B,79,3D,3D,07,16,00,5F,DD,19, DD.6E 

1045 DATA 00,DD,66, 01,DD,5E,02,DD,56,03,C5,18,18,CD,CO,BB 

1046 DATA CI,11,FC,FF,DD,19,05,CB,DD,6E.00,DD,66,01,DD,5E 

1047 DATA 02, DD, 56, 03. C5, CD, F6, BB, CI, 18, E6, FE, 04, CO, DD, E5 

1048 DATA El,06,04,5E,23,56,23,D5,10,F9,Dl,El,CD,CO,BB,Dl 

1049 DATA D5,21,00, 00,CD,F9,BB,Dl,El,E5,D5,11,00,00,CD,F9 

1050 DATA BB,Dl,AF, 67,6F,ED,52,EB,67,6F,CD,F9,BB,Dl, AF,67 


1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 


DATA 6F,ED, 52, 57,5F, C3,F9,BB,01,00,00,C5,Dl,FE,04,28 
DATA ID,FE,06,CO,DD,E5,El,5E,23,56,23,4E,23,46,23,E5 
DATA DD,El,C5,El,CD,38,9C,E5,CI,EB,CD,38,9C,EB,DD,E5 
DATA El,D5, C5,06,04,5E,23,56,23,D5,10,F9,CD,CC,BB,ED 
DATA 53,74,9E,22,76,9E,D1,E1,CD,C9,BB,Dl,El,ED,53,70 
DATA 9E,22,72,9E,El,E5,CD,48,9C,ED,5B,70,9E,CD,D4,9C 
DATA EB,El,E5, D5, CD,44,9C,ED,5B,72,9E,CD,D4,9C,Dl,CD 
DATA CO,BB,CI,03,21,68,01,B7,ED,42,20,02,47,4F,C5,El 
DATA E5,CD,48,9C,ED,5B,70,9E,CD,D4,9C,EB,El,E6,D5,CD 
DATA 44,9C, ED. 5B,72,9E,CD,D4,9C,Dl,CD,F6,BB,CI,El,E5 
DATA B7,ED, 42,20, CE, El,ED,5B,74,9E,2A,76,9E,C3,C9,BB 
DATA D5,11,68,01,B7,ED,52,30,FC,19,Dl,C9,11,5A,00,19 
DATA 11,68,01,B7,ED,52,30,01,19,E5,11,B4,00,B7, ED, 52 
DATA 30,01,19,7D,FE,5B,3B,03,3E,B4,95,32,77,9C, AF,21 
DATA B4,00,Dl,ED,52,30,01,3D,67,DD,21,79,9C, DD, 6E, 00 
DATA C9,00,04,08,OD,11,16,1A,1F,23,28,2C,30,35,39,3D 
DATA 42,46,4A,4F,53,57,5B,5F,64,68,8C,70,74,78, 7C,80 
DATA 83,87,8B,8F,92,96,9A,9D,Al,A4, A7,AB,AE,Bl,B5,B8 
DATA BB,BE,CI, C4,C6,C9,CC,CF,Dl,D4,D6,D9,DB,DD,DF,E2 
DATA E4,E6,E8,E9,EB,ED,EE,FO,F2,F3,F4,F6,F7,F8,F9,FA 
DATA FB,FC,FC,FD,FE,FE,FF,FF,FF,FF,FF,FF,E5,7D, 21,00 
DATA 00, 06, 08, OF, 30, 01,19, CB, 3C, CB, ID, 10, F6, Fl, 3C, CO 
DATA EB,67,6F,B7,ED,52,C9,CD,06,B9,32,7A,9E,ED,73,78 
DATA 9E,CD,FC,15,CD,FC,16,D2,56,9E,ED,53,70, 9E, 22,72 
DATA 9E,CD,04,18,4F,CD,OA,18,B9,CA,56,9E,32,72,9D,32 
DATA A2,9D,32,CC,9D,DD,2A,78,9E,01,BO,BE,ED,5B, 8D,BO 
DATA 21,00,42, ED,52,30,IF,2A,89,AE,ED,52,D5,11, 00,02 
DATA ED,52,Dl,38,11,01,20,40,2A,89,AE,ED,52,38,04,ED 
DATA 4B,89,AE,D5,DD,El,DD,F9, ED,43,5D,9D,AF,E5,F5,33 



3 hi Jül ul 


1080 DATA .21,00,00, 39, 11, 18, 

1081 DATA 2A,72,9E, CD, A9, OB, 

1082 DATA 23,22,70,9E.C3,38, 

1083 DATA 70,9E,ED,53,74.9E, 

1084 DATA 9E,1B,D5,CD,A9,OB, 

1085 DATA 47,CD,68,OC,Dl,18, 

1086 DATA 2A,32,B3,B7,ED,52, 

1087 DATA CD,62,OC,FE,00,20, 

1088 DATA DB,Dl,ED,5B,72,9E, 

1089 DATA 9E,34,2A,74,9E,22, 

1090 DATA ED, 52, 38.05,OE,10, 

1091 DATA 9E,2A,36,B3,B7,ED, 

1092 DATA 22,70,9E,2A,76,9E, 

1093 DATA 20,C3,60,9E,21,72, 

1094 DATA 3B,Fl,El,5C,4F,E6, 

1095 DATA OF, 67,22,76,9E,79, 

1096 DATA 78,9E,3A,7A,9E,C3, 

1097 DATA 63,0?,07,B2,B1,C3, 

1098 DATA 00,00,00,21,87, 9E, 

1099 DATA OA,OD,OA,3C, 20, 47, 

1100 DATA 45.53.53, 4F,52,20, 

1101 DATA 74,74,65,6E,20,31, 

1102 DATA 65,6C,73,63,68,OD, 

1103 DATA 73,3A,OD,OA,2D,20, 

1104 DATA 0A.2D.2O,47,50,41, 

1105 DATA OD,OA,2D,20,47,4D, 

1106 DATA 0A.2D,20,43,48,41, 

1107 DATA 25.0D.0A,2D, 20,43, 

1108 DATA 6D,6F,64,65,5D,OD, 

1109 DATA 76,61,72,24, OD,OA, 

1110 DATA 2F,44,4F,57,4E,2F, 

1111 DATA OD,OA,2D,20,46,52, 

1112 DATA 42,52,45,41,4B,2E, 

1113 DATA OA,2D.20,4D, 55,4C, 

1114 DATA 2C,69,2C, 69,5D,5B, 

1115 DATA 4F,4C.59,47,4F,4E, 

1116 DATA 2C,2E,2E,2E,2C,78, 

1117 DATA 20,52,45,43,54,41, 

1118 DATA 78,2C,64,79,OD.OA, 

1119 DATA 78.2C.6D,79,2C,72, 

1120 DATA 77,32,5D,OD,OA,2D, 

1121 DATA 48,45,4C,50,OD,OA, 


BE,ED, 

52, 

DA,56, 

9E, 

, ED, 

5B, 

70, 

9E 

CD,82, 

OC. 

FE, 00, 

28, 

,0A, 

2A, 

70, 

9E 

9E,3A, 

38, 

B3,47, 

CD, 

,68, 

OC, 

ED, 

. 5B 

2A.30, 

B3, 

B7, ED, 

52, 

28, 

1A, 

2A, 

72 

CD,82, 

OC, 

FE,00, 

20, 

, OA, 

3A, 

38, 

, B3 

DB,Dl, 

ED, 

5B,70, 

9E, 

, ED, 

53, 

76, 

9E 

28,1A, 

2A, 

72,9E, 

13, 

,D5, 

CD, 

A9, 

OB 

OA,3A, 

38, 

B3,47, 

CD, 

68, 

OC, 

Dl, 

18 

2A,34, 

B3, 

B7.ED, 

52, 

,28, 

IF, 

21, 

72 

70,9E, 

2A, 

76,9E, 

ED, 

, 5B, 

70, 

9E, 

B7 

C3,60, 

9E, 

21,72, 

9E, 

,35, 

ED, 

5B, 

72 

52,28, 

IF, 

21,72, 

9E, 

,35, 

2A, 

74, 

9E 

ED.5B, 

70, 

9E.B7, 

ED, 

,52, 

38, 

05, 

OE 

9E,34, 

2A, 

76,9E, 

23, 

,23, 

22, 

70, 

9E 

03,57, 

ED, 

53,74, 

9E, 

,79, 

E6, 

OC, 

OF 

E6,FO, 

FE, 

10,28, 

9C, 

30, 

C5, 

ED, 

7B 

OC,B9, 

2A, 

76, 9E, 

7C, 

, ED, 

5B, 

74, 

9E 

55,9D, 

00, 

00,00, 

00, 

,00, 

00, 

00, 

00 

7E,B7, 

C8, 

CD,5A, 

BB, 

,23, 

18, 

F7, 

OD 

52,41, 

50, 

48,49, 

43, 

,50, 

52, 

4F, 

43 

31,2E, 

30, 

20,3E, 

OD, 

OA, 

77, 

72, 

69 

39,38, 

35, 

20, 62, 

79, 

,20, 

4F, 

2E, 

57 

OA,OD, 

OA, 

43,6F, 

6D, 

, 6D, 

61, 

6E, 

64 

47,50, 

45, 

4E,2C, 

67, 

,70, 

65, 

6E, 

OD 

50,45, 

52, 

2C.67, 

70, 

,61, 

70, 

65, 

72 

4F,44, 

45, 

2C,67, 

6D, 

, 6F, 

64, 

65, 

OD 

52,52, 

45, 

41.44, 

2C, 

, 40, 

76, 

61, 

72 

48,41, 

52, 

53,49, 

5A, 

45, 

20, 

5B, 

2C 

OA,2D, 

20, 

53,48, 

41, 

, 50, 

45, 

2C, 

40 

2D,20, 

53, 

43,52, 

4F, 

4C, 

4C, 

55, 

50 

4C,45, 

46, 

54,2F, 

52, 

, 49, 

47, 

4B, 

54 

41,4D, 

45, 

OD, OA, 

2D, 

20, 

4F, 

4E, 

2E 

53,54, 

4F, 

50,2F, 

43, 

, 4F, 

4E, 

54, 

OD 

54,49, 

43, 

4F.4C, 

4F, 

52, 

20, 

5B, 

62 

2C,2E, 

2E, 

2E,5D, 

OD, 

, OA, 

2D, 

20, 

50 

2F,52, 

2C, 

78,31, 

2C, 

79, 

31, 

20, 

5B 

31,36, 

2C, 

79,31, 

36, 

,5D, 

OD, 

OA, 

2D 

4E,47, 

4C, 

45,2C, 

78, 

,2C, 

79, 

2C, 

64 

2D.20, 

43, 

49,52, 

43, 

, 4C, 

45, 

2C, 

6D 

78,2C, 

72, 

79,20, 

5B, 

, 2C, 

77, 

31, 

2C 

20,50, 

41, 

49,4E, 

54, 

,0D, 

OA, 

2D, 

20 

OD. OA, 

00, 

00 
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überschreiben trotz (oder gerade 
wegen) der gleichen Farbe wie¬ 
der gelöscht. 

- I CHARREAD, <var%>: Hier¬ 
mit kann eine Position auf dem 
Bildschirm ausgelesen werden. 
Vor Aufruf von Charread muß die 
gewünschte Position mittels ’LO- 
CATE x,y' lokalisiert und die Varia¬ 
ble ’var’ vom Typ Integer dekla¬ 
riert werden. Nach dem Aus* 
sprung aus Charread steht in der 


ßer oder gleich dem momentanen 
Mode entsprechend dargestellt 
werden sollen. Dies bedeutet: in 
Mode 2 sind Zeichen der Größe 
Mode 1 oder Mode 0 möglich, in 
Mode 1 nur Zeichen der Größe 
Mode 0. Das Zurückstellen auf den 
Origmal-Modus erfolgt durch 
‘ICHARSIZE’ ohne Parameter. 

Die Anzahl der Parameter (eines 
oder keiner) werden überwacht. 

Werden mehr als zwei Parame- 



pe auf max. 255. Im ersten Byte 
dieses Datenblocks steht die An¬ 
zahl der horizontalen Bildpunkte, 
dann folgen die eigentlichen Da¬ 
tenbytes. 


DATA-Zeilen 


Um ein Shape zu generieren, 
sollte man der Einfachheit halber 
den beigefügten Shape-Generator 
benutzen. Nach dem Einfügen der 
DATA-Zeilen und dessen Start 
fragt der Generator nach dem 
Mode, in dem das Shape später 
dargestellt werden soll. Zu beach¬ 
ten ist, daß in der ersten DÄTA- 
Zeile die Größe des Shapes in 
Bildpunkten anzugeben ist. Diese 
Größe wird dann als Berech¬ 
nungsgrundlage für die Größe 
des Datenblocks genommen, wo¬ 
bei noch zusätzlich der Bild¬ 
schirmmode berücksichtigt wird. 
Nach Beendigung dieser Pro¬ 
grammhilfe steht in der Variablen 
'shape$' das Shape zur Verfügung. 

Ausgehend von der Grafik-Cur¬ 
sorposition wird nach dem Kom¬ 
mando ‘SHAPE’ der Datenblock in 
dem angegebenen String im Xor- 
Modus mit dem darunterstehen¬ 
den Bildschirmmhalt verknüpft 
und nach links und unten ausgege¬ 
ben. Da dies, wie schon gesagt, im 


Variablen der ASCII-Wert des Vor¬ 
gefundenen Zeichens. Konnte das 
Zeichen nicht identifiziert werden, 
oder wurde eine Cursorposition 
außerhalb des aktuellen Bild¬ 
schirmfensters angegeben, so 
steht in der Variablen der Wert -1. 
Die Anzahl der mitgegebenen Pa¬ 
rameter wird nicht überwacht, 
ebenso, ob nun der Inhalt der Va¬ 
riablen oder ein Zeiger auf die Va¬ 
riable angeführt wurde. In diesem 
Falle ist ihr Inhalt ungültig. 

Beispiel: LOCATE 1,1: !CHAR 
READ, §char% : IF char% = -l 
THEN PRINT“ Zeichen nicht er¬ 
kannt!“ ELSE weiter... 


CHARSIZE 


- iCHARSIZE, <mode>: Dank 
dieses Befehles können Sie nun in¬ 
nerhalb eines Bildschirmmodus 
mehrere Zeichengrößen zusam¬ 
menmischen. 

Beschränkt ist diese Methode al¬ 
lerdings nur auf Zeichen, die grö- 


ter angegeben, so wird die Routi¬ 
ne erfolglos verlassen. Parameter¬ 
auswertung: Inhalt MODE I. 

Beispiel: MODE 2: PRINT “Nor¬ 
mal“: ICHARSIZE,l:PRINT"Elon- 
giert“: ICHARSIZE,0:PRINT"Aber- 
mals elongiert": ICHARSI- 

ZE-.PRINT“ und wieder normal“ 


MODE 


Etwas gilt es zu beachten: Vor je¬ 
der Modusänderung mittels 'MO¬ 
DE' sollte die ursprüngliche Zei¬ 
chengröße durch 'ICHARSIZE' 
wiederhergestellt werden. Anson¬ 
sten kann es zu unangenehmen Ef¬ 
fekten kommen. 

- ISHAPE; <§var$>: Diese Routi¬ 
ne gestattet es Ihnen, auf dem 
Schneider Shapes darzustellen. 
Die Daten für diese Shapes wer¬ 
den in einem String übergeben. 
Somit beschränkt sich die Anzahl 
der möglichen Bildpunkte je Sha- 


SHAPE 


Xor-Modus geschieht, bleibt der 
Inhalt unter dem Shape restaurier¬ 
bar. Schreibt man nämlich das 
Shape ein zweites Mal über die 
gleiche Position, so wird der alte 
Inhalt — sofern in der Zwischen¬ 
zeit nichts anderes normal dar¬ 
über geschrieben wurde — wie¬ 
der rekonstruiert. Bedingt durch 
den Xor-Modus kann es zu seltsa¬ 
men chaotischen Effekten kom¬ 
men. Um eine hohe Schreibge¬ 
schwindigkeit zu erreichen, wird 
das Shape in ganzen Bytes in den 
Bildspeicher geschrieben. So ver¬ 
meidet man langwierige Schiebe- 
und Rotieroperationen. Dadurch 
kann es zu 'ruckenden' Shapes 
kommen. 

Wird kein Parameter beim Auf¬ 
ruf dieser Routine angegeben, so 
wird diese erfolglos verlassen. 
Die Gültigkeit der Parameter wird 
nicht überprüft. 
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Beispiel: MOVE 320,200:!SHAPE; 
§shape$ (verwendet werden kann 
das Beispiel, das im Shape- 
Generator steht) 


SCROLLUP 


- !SCROLLUP/!SCROLLDOWN: 
Mittels der hier angegebenen 
Kommandos kann der Inhalt des 
aktuellen Textfensters hinauf- und 
hinuntergeschoben werden. Die 
neu erscheinende Zeile wird da¬ 
bei immer gelöscht. 


Die alte Cursorposition bleibt 
bestehen. Eventuelle Parameter 
werden nicht beachtet. 

Beispiel: LOCATE 1,1: ISCROLL- 
DOWN:PRINT“Neue Zeile!“ 

- „SCROLLEFT/ISCROLLRIGHT: 
Hiermit wird der gesamte Bild¬ 
schirm um jeweils zwei Bytes nach 
links oder rechts gescrollt. Ge- 
scrollt wird 'um die Eck herum'. Es 
wird folglich keine Spalte dabei 
gelöscht. 

Eventuelle Parameter werden 
nicht beachtet. 

Beispiel: 10 !SCROLLEFT:!FRA- 
ME:GOTO 10:REM Spielerei 


- IFRAME: Diese Routine wartet 
lediglich auf den nächsten Bild- 
rücklauf. Dies ist dann wichtig, 
wenn ein Bildaufbau flimmerfrei 
erfolgen soll. 

Eventuelle Parameter werden 
nicht beachtet. 


SCROLLEFT 


Beispiel: siehe ’ISCROLLEFT 1 

-ION.BREAK.CONT: Diese Funk¬ 
tion ermöglicht es Ihnen, die 
Break-Taste nun nahezu völlig ab¬ 
zuschalten. Nur nahezu völlig, da 
im Betriebssystem des Schneider 
der Cassetten-Manager und der 
Editor direkt auf die Tastatur zu¬ 
rückgreifen und darum bei Kasset¬ 
tenoperationen oder bei Input- 
Befehlen die Esc-Taste weiterhin 
berücksichtigt wird. Mit 'ON. 
BREAK.STOP' können Unterbre¬ 
chungen wieder zugelassen wer¬ 
den. 

Angegebene Parameter werden 
nicht beachtet. 

Beispiel: 10 ION.BREAK.CONT 

20 WHILE INKEY$ = „“:PRINT" 
Unterbrechungen gesperrt 

“:WEND 

30 !ON:BREAK:STOP 

40 PRINT" Unterbrechungen 
wieder zugelassen“: GOTO 40 
!ON.BREAK.STOP: Mit dem Auf¬ 
ruf dieser Funktion wird eine Un¬ 
terbrechung durch die ESC-Taste 
wieder zugelassen, nachdem sie 
durch 'ON:BREAK:CONT' verhin¬ 
dert wurde. 

Angegebene Parameter werden 
nicht beachtet. 

Beispiel: siehe ‘ON.BREAK. 
CONT' 


MULTICOLOR 


--'MULTICOLOR, borderl, inkll, 
inkl2, border2, ink21, ink22,.,. 
border6, ink61, ink62: Hiermit ist 
Ihnen nun die Möglichkeit zur Ver¬ 
fügung gestellt, mehr Farben als 
normalerweise üblich darzustel¬ 
len (14 Farben in Mode 2, 16 Far¬ 
ben in Mode 1 und 27 Farben in 
Mode 0). Dieses Mehr an Farben 
äußert sich in max. sechsfarbigen 
Streifen auf dem Bildschirm. Ohne 
mich in die technischen Datails 
verlieren zu wollen, möchte ich 
nur etwas zu der Parameteranga¬ 
be und -übergäbe sagen. Jeder 
dieser sechs Farbbalken enthält 
die Information zur Bildrandfarbe 


** SHAPE-GENERATOR ** 


Autor: O.Wolach 
Stand: Oktober 1985 


PRINT"SHAPE-Generator" 

ISO PRINT”by O-Welsch" 

INPUT"Modus : ".modus 
bits=2~(modus+l)-1 
DIM oolor(15),mask(bits) 

IF modus=0 THEN RESTORE 530:G0SCJB 470:RESTORE 430 
RESTORE 540:G0SUB 470:RESTORE 440 
RESTORE 550:GOSUB 470:RESTORE 450 


IF modus=1 THEN 
IF modus=2 THEN 
FOR i=0 TO bits 
60 READ code$ 

70 mask<i)=VAL<"&"+oode*) 

80 NEXT 

90 RESTORE 570 ’Restore auf Datenblock fuer Shape 
00 READ x, y 
10 xr:x/(bits + l) 

20 count=0.value=0:p=2 
30 ahape$=CHR$(x> +STRING$(x#y, CHR$(0)) 

40 READ a$ 

50 IF a$="" THEN PRINT Shape defined":END 
60 FOR i=l TO LEN{a$) 

70 value=value OR (color(ASC(MID$(a$,i,1)) AND 15) AND mask(count)) 
ao count=eount+l 

90 IF count>bits THEN count=0:MID$(shape$,p,1)=CHR${value):p=p+l: 

00 NEXT 
10 GOTO 340 

20 ' * Bitmasken der jeweiligen Modi 
430 DATA aa,55 
40 DATA 88,44,22,11 
450 DATA 80,40,20,10,08,04,02,01 
160 '* Codierte Inks einiesen 
70 FOR i=0 TO 15 
00 READ code 

90 color{i)=code 

Q0 NEXT 
10 RETURN 

20 ’* Codierte Inks der jeweiligen Modi 
0 DATA 0,192,12,204,48,240,60,252,3,195,15,207,51,243,63,255 
DATA 0,240,15,255, 0, 240, 15, 255, 0,240, 15, 255, 0, 240, 15, 255 
0 DATA 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255 
* Beispiel-Shape: ein abgewandelter Commodore-Ballon 
70 DATA 24,21 

DATA "000000001111111100000000" 

" 000001111111111111100000 " 

"000111111111111111111000" 

" 001111122221111111111100 " 

" 011111222221111111111110 " 

930 DATA "111111221111111111111111” 

40 DATA "111111222221333311111111" 

"111111122221333331111111" 

"111111111111111331111111" 

"051111111111333331111150" 

"050111111111333311111050" 

"005001111111111111100500" 

"000500011111111110005000" 

"000050001111111100050000" 

“000005000011110000500000" 

”000000500001100005000000 
"000000050001100050000000" 

"000000005000000500000000" 

"0000000005 55555 000000000" 

"000000000555 555000000000" 

"000000000055550000000000" 


00 DATA 
600 DATA 
10 DATA 
620 DATA 


650 DATA 
660 DATA 
70 DATA 
680 DATA 
690 DATA 
700 DATA 
DATA 
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(Border) und der Farbe der Pen 0 
und 1. Somit ergeben sich maximal 
3x6=18 zu übergebende Parame¬ 
ter. Diese Anzahl darf nicht über¬ 
schritten, wohl aber unterschritten 
werden. Angegeben werden je¬ 
weils die Inkfarben (0-31). Bei der 
Parameterübernahme durch das 
Programm werden diese Parame¬ 
ter Modulo 32 genommen, um auf 
diese Weise eine gültige Ink zu er¬ 
halten. Anschließend werden die¬ 
se Inks in eine interne Farbaufbau- 
liste übernommen. Alle Stifte mit 
einer anderen Nr. als 0 oder 1 wer¬ 
den während der Arbeit der Routi- 


POLYGON 


ne verändert. Werden keine Para¬ 
meter angegeben, so wird die 
Routine wieder 'ausgehängt’, ihre 
Abarbeitung beendet. Bei mehr 
als 18 Parametern wird die Routine 
ohne Ergebnis verlassen. 

Beispiel: IMULTICOLOR, 26, 0, 
26, 22, 4, 22, 18, 8, 18, 14, 12, 14, 10, 
16, 10, 6, 20, 6 

- !POLYGON/!POLYGONR, xl, 
yl, x2, y2, ...xl6, yl6: Ziel dieser 
Funktion ist es, mittels eines Kom¬ 
mandos ganze Linienzüge zeich¬ 
nen zu können. Dazu folgt dem Na¬ 
men der Routine eine Parameterli¬ 
ste, in der paarweise x- und y- 
Koordinaten folgen. Auf die erste 
Koordinate wird der Grafik-Cursor 
entweder absolut oder relativ ge¬ 
setzt, zu allen weiteren angegebe¬ 
nen Koordinaten werden dann ab¬ 
solute oder relative Linien gezo¬ 
gen. Im wesentlichen entspricht 
diesem Kommando also eine Ab¬ 
folge von DRAWs bzw. DRÄWRs. 
Vorteil dieses Kommandos gegen¬ 
über der üblichen Methode; bei 


x- und y-Koordinate eines Eck¬ 
punktes und den jeweiligen Kan¬ 
tenlängen in x- und y-Richtung, wo¬ 
bei durch die Vorzeichen die Ecke 
dieses Rechtecks festgelegt wird 
(also links/unten, rechts/oben 
etc.). Anschließend wird dieses 
Rechteck gezeichnet. Der Gra¬ 
phik-Cursor steht beim Aussprung 
auf der Koordinate der angegebe¬ 
nen Ecke. Ist die Parameteranzahl 
ungleich vier, so wird die Routine 
erfolglos verlassen. 


Beispiel: IRECTANGLE, 80, 50, 
560, 350 

:REM zentriertes Rechteck im 
Bildschirm 

- ’CIRCLE, mx, my, rx, ry, wl, w2: 
Diese Routine gestattet es, eine El¬ 
lipse — einen Kreis dann natürlich 
auch — oder einen Kreisbogen zu 
zeichnen. Die Koordinate des Mit¬ 
telpunktes wird durch die beiden 
ersten Parameter bestimmt, die 
Radien in x- und y-Richtung durch 


CIRCLE 


steckte' Flächen werden erkannt. 
Bevor die Routine aufgerufen 
wird, muß der Graphik-Cursor po¬ 
sitioniert, der Graphik-Pen und 
das Graphik-Paper selektiert sein. 
Ausgehend von der momentanen 
Cursor-Position wird dann eine be¬ 
grenzte Fläche, die die Farbe des 
Graphik-Papiers besitzt, mit der 
Farbe des Graphik-Stiftes gefüllt. 
Die Komplexität und die Größe 
der zu füllenden Fläche ist abhän¬ 
gig von dem zur Verfügung stehen¬ 


den Speicherplatz. Anmerken 
möchte ich hier, daß sich das Pro¬ 
gramm selbsttätig einen freien 
Speicherbereich sucht. Standard¬ 
mäßig ist dieser Speicherbereich 
der Prozessorstack, ansonsten der 
freie Bereich zwischen dem Ende 
des Variablenspeichers und dem 
Anfang der Strings. So kann es bei 
einem großen BASIC-Programm 
und einer komplexen Figur zweck¬ 
mäßig sein, vorher den Speicher 
mit Hilfe der BASIC-Funktion 
FRE zu entrümpeln. Kann eine 
Figur nicht ganz gefüllt werden, so 
wird diese Routine unterbrochen. 



DRÄW 


guter Ausnutzung der größtmögli¬ 
chen Anzahl von Parametern ist 
diese Methode schneller. Bei un¬ 
gerader Anzahl der Parameter 
wird diese Routine ohne Ergebnis 
verlassen 

Beispiel: iPOLYGON, 80, 50, 560, 
350, 80, 350, 560, 50, 80, 50 
:REM zwei Dreiecke 
- IRECTANGLE, x, y, dx, dy: Wie 
der Name vielleicht schon verrät, 
wird mit Hilfe dieses Kommandos 
ein Rechteck gezeichnet. Die vier 
Parameter, die stets angegeben 
werden müssen, bestehen aus der 


die beiden folgenden. Die Anga¬ 
be dieser vier Parameter ist 
Pflicht. Zusätzlich können noch 
zwei Winkel (in Altgrad) angege¬ 
ben werden. Null Grad liegen da¬ 
bei in zwölf Uhr, die folgenden 
Winkel wandern im Uhrzeigersinn 
rechts herum. Zwischen diesen 
beiden Winkeln wird ein Kreis¬ 
segment gezeichnet. Bei einer fal¬ 
schen Anzahl von Parametern 
wird die Routine erfolglos verlas¬ 
sen. 

Beispiel: ICIRCLE, 320, 0, 159, 
199, 270, 90 :REM zeichnet einen 
nach unten offenen Halbkreis 
über den ganzen Bildschirm. 

- IPAINT: Mit PAINT können end¬ 
lich beliebige (!) Flächen mit einer 
Farbe gefüllt werden. Auch ’ver¬ 


GPEN 


Eventuelle Parameter werden 
nicht beachtet. Beispiel: 

!GPEN,1:GPAPER,0:CLG:! 
CIRCLE, 320,200,50,199:MOVE 
320,200:!PAINT 

-!HELP: Mit dem Kommando HELP 
können Sie ein Hilfsmenü aufru- 
fen. Darin enthalten sind sämtliche 
hier erläuterten Befehle und ihre 
Formate. Parameter werden nicht 
beachtet. 

Beispiel; !HELP 

Ich hoffe, daß dieses Utility vie¬ 
len eine hilfreiche Ergänzung ist. 
Einige Mängel des Schneider sind 
dadurch allemal beseitigt. 

O.W. 
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zum Schneider Sonderheft 

Folgende Listings finden Sie in unserem 
Software-Service. Sparen Sie sich das eintippen. 


Die Themen: 


Sn 


New York 
Der Grafikmacher 
Wordprocessor 
Spriteeditor 
Hintergrund-Uhr 
Banner 
Struk-List 
Wordprocessor ii 
Optimizer 
Mineralien 
Skypolt 

Zeichen-Generator 
D-List 

Kalender r\ 

Maussteuerung 
Rekursion in BASIC 
»GEM« GDM 
Apfelmännchen 
Labeldrucker 
Maze 
Hyperplot 


Über 

200 Kilobyte 
für nur 

49.— Diskette (3’-Disk) 

45 — Cassette 

23 Superprogramme 
für nur 

49.— Diskette (3”-Disk) 

45.— Cassette 



'//s 
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STRUKLIST 


Benutzte Variablen: 


device 
nl eer 

taken*(126) 
funktion#(127) 
i , k 


aneu 
zei1e$ 


an-f ang 
dif f 


Nummer des Ausgabekanals 

Anzahl der Leerzeichen, die vor jeder Zeile 

ausgegeben werden 

Basic-Befehle als Strings 

Basic—Funktionen als Strings 

Lauf var i ab 1 en 

An-fangsadresse des Basic-Speichers 

Aktuelle Zeilennummer 

An-fangsadresse der nächsten Zeile 

Ausgabezeile als String (wird am Schluß ausge— 

geben) 

Flag, das führende Leerzeichen unterdrückt 

ßibt an, um wieviele Zeichen ein— bzw. ausgerückt 


aus! 

byte 

druck* 


wird 

s Nimmt das gerade gelesene Basic—Kommando usw. auf 
: Gerade gelesenes Byte 

s Wird zum Ausgeben der Zeile am Schluß benutzt, da 
der Schneider nicht in der Lage ist, Strings über 
40 Zeichen vernünftig auszugeben 


0 ) 

u & 

a ö 

23 .SS 

P ö J 


Funktionen: 

fn deek : Liest zwei aufeinanderfolgende Bytes als 16 Bit-Zahl 
fn druck* : Wandelt Zahlen in Strings um; bei positiven Zahlen 
wird kein führendes Leerzeichen ausgegeben 



60000 

60010 

60020 

60030 

60060 

60070 

60100 

60110 

60120 

60130 

60140 

60150 

60160 

60170 

60180 

60190 

60200 


REM Strukturiertes Listing fuer Drucker mit 
Zei1enbreitenbegrenzung 

REM Copyright FTB Software Cooperation 
REM 

REM Frank Thielen 
REM 

REM Thomas Barndt 

REM 

REM 

REM Kontrol1Zeichen (in Stringkonstanten) ko 

ennen nicht ausgegeben werden 

REM 

REM 

REM Programm listet sich nicht selbst; soll 
dies doch geschehen, die 

REM Bedingung "zn<60000" (Zeilennummer unter 
60000) in der Zeile 60450 
REM entfernen 
REM 
REM 
REM 


Dieses Programm listet Program¬ 
me auf Bildschirm der Drucker. Da¬ 
bei werden Zeilennummern 
rechtsbündig ausgegeben sowie 
For-Next- und While-Wend-Schlei- 
fen eingerückt, wenn dies möglich 
ist. 

Man lädt das Programm zu die¬ 
sem Zweck mit MERGE zu dem zu 
listenden Programm und startet es 
mit RUN 60000, Für die Ausgabe 
auf Drucker sollte in Zeile 60210 
device = 8 stehen, andernfalls 
divice = 0 für Ausgabe auf den Bild¬ 
schirm. In Zeile 60450 sollten Sie 
das erste REM und den Doppel¬ 
punkt entfernen, damit sich das 
Programm nicht selbst listet. In den 
Zeilen 60220 und 60230 müssen 
Soll- und Istbreite für die Ausgabe 
angegeben werden, 

Struklist liest den BASIC- 
Speicher aus und wandelt dabei 
die Tokens (Kürzel für BASIC- 
Befehle) in die tatsächliche Zei¬ 
chendarstellung um (sie stehen am 
Ende des Programms). Werte von 
Konstanten, wie z.B. in „8 = 3.14“, 
speichert der Schneider nicht 
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Pascalstrukturen 
in BASIC 


in Form von ASCII-Zeichen ab, d.h. 
nicht als fortlaufende Zeichen wie 
,,3" „1" ,,4", wie dies die meisten 

Rechner tun, er wählt vielmehr ei¬ 
ne von der Größe der Konstanten 
abhängige Darstellung und ver¬ 
mindert so den Speicherbedarf 
und erhöht die Ausführungsge¬ 
schwindigkeit. Alle dezimalen Kon¬ 
stanten unter 10 werden dabei in 
nur einem Byte abgelegt; dezimale 
Werte unter 256 werden durch ein 
Byte gekennzeichnet, auf das dann 
der eigentliche Wert folgt. Dies ge¬ 
schieht analog mit dezimalen, he¬ 
xadezimalen und binären Konstan¬ 
ten, die mit einem Kennbyte begin¬ 
nen und in zwei weiteren Bytes den 
eigentlichen Wert enthalten. 

Fließkommazahlen werden 

grundsätzlich als 5 Byte-Sequenzen 
abgelegt, wobei die Darstellung 


5 Byte Sequenz 


der Ablage der Variableninhalte 
entspricht. Auch dies ist ein Grund 
für die hohe Geschwindigkeit der 
Programmausführung des Schnei¬ 
ders, weil bei einer Zuweisung die¬ 
se fünf Byte nur übertragen wer¬ 
den brauchen, während die mei¬ 
sten anderen Computer die ASCII- 
Darstellung von Zahlen erst noch in 
das Variablen-Format umwandeln 
müssen. 


Der Trick 


Auch bei der Ablage der Zeilen¬ 
nummer hinter GOTO wird ein 
Trick angewendet: Hier steht nicht 
etwa die Zeilennummer, sondern 
ein Zeiger, der auf den Beginn der 
angesprungenen Zeile im Spei¬ 
cher zeigt. Bei der Ausführung 
kann also dann der Ausführungs¬ 
zeiger direkt auf diese Speicher¬ 
stelle gesetzt werden; viele andere 
Rechner müssen in dieser Situation 
den gesamten BASIC-Speicher 
nach der anzuspringenden Zeile 
absuchen. Deshalb werden Sprün¬ 
ge an den Programmanfang bei 
den meisten Rechnern schneller 
durchgeführt als an das Ende (die 
gesuchte Zeile wird schneller ge¬ 
funden), während der Schneider 
immer gleich schnell springt. 
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60210 device=8 ' Fuer Ausgabe auf Bildschirm devic 
e=0 

60220 sollbreite=50 ' Anzahl der gewuenschten Zeic 
hen pro Zeile au-f dem Ausgabegeraet (mindest 
ens 18) 

60230 istbreite=80 ' Anzahl der tatsaechlichen (ph 
ysikalisch vorhandenen) Zeichen pro Zeile au 
f dem Ausgabegeraet (mindestens sollbreite) 
60240 INK 0,26:INK 1,0:PAPER 0:PEN 1:BORDER 26 
60250 nleer=0 ' Anzahl der Leerzeichen, die vor je 
der Zeile ausgegeben werden 
60260 DIM token*(126),funktion$(127) 

60270 REST0RE 61360 
60280 F0R i=0 TO 126 
60290 READ token$(i> 

60300 NEXT i 

60310 FOR i—0 TO 29 

60320 READ -f unktion$ (i ) 

60330 NEXT i 

60340 FOR i=64 TO 72 

60350 READ funktional) 

60360 NEXT i 

60370 FOR i=113 TO 127 

60380 READ funktion$(i> 


60390 NEXT i 

60400 DEF FN deek(i)=PEEK(i)+PEEK(i + l>*256 
60410 DEF FN druck*(i)=MIDS(STR«(i),1-(i>=0)) 

60420 a=368 

60430 zn=FN deek(a+2) 

60440 aneu=a+FN deek(a) 

60450 WHILE zn>0 :'AND zn<60000 ' Das erste ' muss 
entfernt werden 


60460 

zeile*="" 


60470 

anfang=0 


60480 

diff=0 


60490 

i=a+4 


60500 

WHILE i<=aneu—2 


60510 

ausi="" 


60520 

byte=PEEK(i) 


60530 

IF NOT anfang AND byte=32 

THEN 61160 ELS 


E anfangs-1 ' Leerzeichen 

am Zeilenanfan 


g ueberlesen (kann entfallen, falls selb 


st eingegebene Leerzeichen 
n sollen) 

stehen bleibe 

60540 

IF byte<>192 AND byte<>197 

THEN 60610 

60550 

IF byte=192 THEN aus*»"'" 

ELSE ausl="REM 

60560 

FOR k=i+1 TO aneu-2 ' Text 

hinter REM od 


er Hachkomma, unveraendert 

ausdrucken 

60570 

au5$=aus*+CHR$(PEEK(k)) 


60580 

NEXT k 


60590 

i=aneu-2 


60600 

GOTO 61160 
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60610 


60620 

60630 

60640 

60650 

60660 

60670 

60680 

60690 


60700 


60710 


60720 

60730 


60740 

60750 

60760 

60770 


60780 

60790 

60800 

60810 

60820 

60830 

60840 

60850 

60860 

60870 

60880 

60890 

60900 

60910 

60920 

60930 

60940 

60950 

60960 

60970 

60980 

60990 

61000 

61010 

61020 

61030 

61040 

61050 

61060 

61070 

61080 

61090 


61 10O 

61110 


IF byte=l THEN IF PEEK<i+1)<>192 AND PEE 

K(i+1)0151 THEN aus*=“ : " : GOTO 61160 ELS 

E GOTO 61160 

IF byte< >124 THEN 60700 

REM RSX-Erweiterungen 

i=i+1:ausS="ö" 

WHILE PEEK<i)<128 

aus*=aus*+CHR*(PEEK <i)):i=i+1 
WEND 

ausJ=aus$+CHR*(PEEK(i)-128) 

GOTO 61160 


IF byte>=14 AND byte<=23 THEN aus*=FN dr 
uck*(byte-14):GOTO 61160 ' im Byte direk 
t enthaltene Information (ohne Pastbyte) 
IF byte=29 THEN aus*=FN druck*(FN deek(F 
N deek(i+l)+3)):i=i+2:G0T0 61160 ' Point 
er auf Sprungziel (Zeile) bei GOTO 
IF byte< >34 THEN 60820 

aus*=CHR*(34) ' Stringkanstante, alle fo 
lgenden Zeichen bis zum naechsten Anfueh 
rungszeichen oder zum Zeilenende direkt 
verarbeiten 
i=i +1 

WHILE i <=aneu—2 AND PEEK (i> 034 
byte=PEEK <i) 

IF byte>=32 THEN aus*=aus*+CHR*(byte) 
ELSE aus*=aus*+". 11 ' nicht ausgebbare 

Kontrallzeichen (wie z.B. Bell (chr*(7 
)) usw.) werden als Punkte ausgedruckt 
i=i + l 
WEND 

IF PEEK(i)=34 THEN aus*=aus$+CHR$(34) 
GOTO 61160 

IF byte>3l AND byte<128 THEN aus*=CHR*(b 
yte):GOTO 61160 ' druckbares Zeichen 
IF byte=25S THEN aus*=funktian*(PEEK(i+1 
)):i=i+1:GOTO 61160 1 Funktion 
IF byte<=127 THEN 60890 

aus*=taken*(byte-128) ' Basic-Kammanda 

IF byte=158 OR byte=214 THEN diff=diff+2 
IF byte=176 OR byte=213 THEN diff=diff-2 
GOTO 61160 

IF byte<2 OR byte>4 AND byte<11 OR byte> 
13 THEN 61080 


REM Bez 

ei ebner 

(f uer 

Variable, 1 

Benutz er f un ktian) 


REM 2: 

REAL 

ahne 

Typzeichen 

REM 3: 

STRING 

ahne 

Typzeichen 

REM 4: 

INTEGER 

ahne 

Typzeichen 

REM 11s 

REAL 

mi t 

Typzeichen 

REM 12: 

REAL 

mi t 

Typzeichen 

REM 13: 

INTEGER 

mi t 

Typzeichen 

i=i+3 

aus*="" 

WHILE PEEK(i)<128 



aus*=aus*+CHR*(PEEK(i)) 


i=i + l 
WEND 

aus*=aus*+CHR*(PEEK(i)-128) 

IF byte=4 THEN ausJ=au5i+"‘“ 

IF byte=3 THEN aus*=aus*+"*" 

IF byte=2 THEN aust=ausJ+ 1 "/. 11 
GOTO 61160 

IF byte=25 THEN aus*=FN druck*(PEEK(i+1) 
):i=i+1:GOTO 61160 ' Ein—Byte—Integer 
IF byte=27 THEN aus$="&X"+BIN$(FN deek(i 
+1)):i=i+2:GOTO 61160 ' Zwei-Byte—Binaer 
z ahl 

IF byte=28 THEN aus*="&"+HEX*(FN deek(i+ 
1>):i=i+2:G0T0 61160 ' Zwei-Byte-Hexzahl 
IF byte=26 OR byte=30 THEN ausi=FN druck 
*(FN deek <i + l)):i=i+2:GOTO 61160 ' Zwei- 
Byte-Integer 


61120 IF byte< >31 THEN 61160 

61130 REM Reelle Zahl 

61140 aus*=FN druck* ( (2''(PEEK (i+5)-145) ) * (6553 

6+(PEEK( i +2)/128) + (PEEK(i+3)*2) +■ (PEEK(i + 
4)*512)+(PEEK(i +1)Z32800))) 

61150 i=i+5 

61160 zei1e*=zeile*+aus* 

61170 i=i+1 

61180 WEND 

61190 PRINT ttdevice, USING 

61200 PRINT ttdevice, " "; 

61210 IF diff<0 THEN nleer=nleer+diff:IF nleer<0 
THEN nleer=0 

61220 1eeranz=MIN(nleer+6,sal1breite—12) 

61230 PRINT #device, STRING* (1 eeranz—6 , " > ; 

61240 WHILE LEN(zei1e*)>sal1breite-1eeranz 
61250 PRINT ttdevice,LEFT*(zei1e*,sal1breite—1e 

eranz>;:IF sol1breite<i stbreite THEN PRI 
NT ttdevice 

61260 zei1e*=MID*(zeile*,sal1breite-1eeranz + 1) 

61270 IF zei1e*>"" THEN PRINT ttdevice.STRING*( 

1eeranz," “); 

61280 WEND 

61290 IF zei1e*>"" THEN PRINT ttdevice.zeile*;:IF 
LEN(zei le*Xsallbreite—leeranz OR sollbre 
ite<istbreite THEN PRINT ttdevice 
61300 IF diff >0 THEN nleer=nleer+diff 
61310 a=aneu 
61320 zn=FN deek(a+2) 

61330 aneu=a+FN deek(a) 

61340 WEND 
61350 END 

61360 DATA "AFTER”,"AUTO”,"BORDER","CALL","CAT","C 
HAIN","CLEAR","CLG”,"CLOSEIN","CLOSEOUT",”CL 
S","CQNT”,"DATA","DEF","DEFINT","DEFREAL","D 
EFSTR“ 

61370 DATA "DEG","DELETE”,"DIM","DRAW","DRAWR","ED 
IT","ELSE",”END“,"ENT","ENV“,“ERASE”,“ERROR" 
,"EVERY“ 

61380 DATA "FOR","GOSUB","GOTO","IF","INK","INPUT" 
,"KEY","LET","LINE“,"LIST","LOAD",“LOCATE“," 
MEMORY","MERGE" 


61390 

DATA 

"MID*“ 

,"MODE","MOVE","MOVER 

","NEXT“,"NE 


W","ON","ON 

BREAK","ON ERROR GOTO“ 

61400 

DATA 

"ON SO' 

","OPENIN","OPENOUT", 

"ORIGIN","OU 


T”,"PAPER“, 

"PEN”,"PLOT","PLOTR“, 

"POKE","PRIN 


T" , " 

‘ " ."RAD 1 

","RANDOMIZE",“READ“, 

"RELEASE","R 


EM“, 1 

■RENUM" 

,"RESTORE","RESUME",” 

RETURN“,"RUN 


61410 

DATA 

"SAVE","SOUNDSPEED","STOP”,"SYMBOL 

" 


"TAG“ 

,"TAGOFF"," 

'TROFF" 


61420 

DATA 

"TRON","WAIT","WEND","WHILE","WIDTH”, 

"W 


INDOW 

","WRITE“," 

ZONE" , "DI ", "EI 

■■ , 


" " , " " 

, "ERL","FN" 

,"SPC",“STEP","SWAP" 

1 " 


TAB", 

"THEN","TO" 

,"USING",">","=",“>=","<", 

"< 






61430 

DATA 

"AND",“MOD" 

,"OR","XOR","NOT" 


61440 

DATA 

"ABS",“ASC" 

,"ATN","CHR*","CINT","Cüa" 

M 


CREAL","EXP","FIX","FRE",“INKEY","INP",“INT" 
, " JOY" , “LEN" , "LOG" , “LOG 10" , "LOWER*" , “PEEK" , 
REMAIN“,"SGN“,"SIN”,"SPACE*",“SQ","SQR","STR 
*","TAN","UNT“,"UPPER*“,"VAL" 

61450 DATA "EOF","ERR",“HIMEM","INKEY*“,"PI ",“RND" 
,"TIME","XPOS","YPOS" 

61460 DATA ”BIN*","","HEX*","INSTR","LEFT*",“MAX", 
"MIN“,"POS",“RIGHT*“,"ROUND","STRING*","TEST 
”,"TESTR",“","VPOS" 
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Schneider, Teil III 


In diesem Teil stoßen wir in 
die dritte Dimension vor: Es wer¬ 
den die Grundlagen der 
3-dimensionalen Abbildung von 
Objekten auf dem Computerbild¬ 
schirm besprochen und die Mög¬ 


lichkeiten, die sich daraus erge¬ 
ben: Drehung und Betrachtung 
von Objekten aus verschiedenen 
Blickwinkeln, Vergrößerung und 
Verkleinerung etc. 


Grafikkurs für den 


FÜR EINSTEIGER FÜR EINSTEIGER FÜR EINSTEIGER FÜR EINSTEIGER FÜR EINSTEIGER FÜR EINSTEIGER FÜR EINST] 


Bild 1; 3-dinensioMler Würfel 



Alle Grafiken, die wir bisher im 
Verlauf des Grafikkurses erstellt 
haben, hatten eines gemeinsam: 
Sie waren 2-dimensional, Das 
heißt, wir haben von vorneherein 
der Tatsache Rechnung getragen, 
daß wir auf einem Bildschirm, also 
einer zweidimensionalen Fläche 
zeichneten. Dieses Mal werden 
wir uns nun damit beschäftigen, 
wie 3-dimensionale Gebilde auf 
unserem 2-dimensionalen Bild¬ 
schirm abgebildet werden können 
und welche Möglichkeiten sich 
dabei ergeben. 

Betrachten Sie einmal Bild 1. Es 
zeigt einen perspektivisch darge¬ 
stellten Würfel in Gitterdarstel¬ 
lung. Es wäre natürlich kein Pro¬ 
blem, den Würfel mit unserem bis¬ 
herigen Wissen auf dem Bild¬ 
schirm zu zeichnen, indem wir die 
Koordinaten der einzelnen Linien¬ 
anfänge und -enden bestimmen 
und einfach 'DRÄW-en'. Doch dann 
hätten wir nichts Neues erreicht, 
da zwar der Betrachter den Ein¬ 
druck von TIEFE hätte, aber wir 
programmäßig keine Möglichkeit 
hätten, z.B. die Perspektive, in der 
der Würfel dargestellt wird, zu än¬ 
dern. Wir müssen also einen an¬ 
deren Weg finden, das Aussehen 
des Würfels zu speichern. 


TIEFE 


Normalerweise arbeiten wir in 
einem Koordinatensystem mit 
2-Achsen, x und y. Deshalb nen¬ 
nen wir es zwei-dimensional. Nun 
kommt aber noch eine dritte Di¬ 
mension hinzu, die Tiefe. Wir 
brauchen also noch eine dritte 


Achse dafür, die wir als Z-ACHSE 
bezeichnen werden. Aus Bild 2 
wird ersichtlich, daß diese Achse 
(vorläufig jedenfalls) den rechten 
Winkel zwischen X- und Y-Achse 
teilt. Daß das aber keineswegs im¬ 
mer der Fall zu sein braucht, wer¬ 
den wir später noch sehen. Wenn 
wir in dem drei-dimensionalen 
Koordinatensystem arbeiten, hat 
jeder Punkt nicht mehr zwei, son¬ 
dern drei Koordinaten: also nicht 
mehr P(x,y), sondern P(x,y,z) (in 
dieser Reihenfolge werden die 
drei Koordinaten immer angege¬ 
ben: X-Horizontal, Y-Vertikal, Z-Per- 
spektive). 

Die linke untere Ecke des Wür¬ 
fels stimmt mit dem Nullpunkt des 
Koordinatensystems überein(0,0,0). 
Das ist zur Bestimmung der einzel¬ 


nen Eck-Koordinaten günstiger, 
aber es ist keine Notwendigkeit; 
dieselbe Ecke könnte auch eine 
andere y-Koordinate haben, so 
daß der gesamte Würfel höher 
oder tiefer läge (z.B. 0,2,0), oder ei¬ 
ne andere x-Koordinate, so daß 
der Würfel mehr rechts oder links 
läge (z.B. -2,0,0). Wenn dieser 
Punkt eine andere z-Koordinate 
hätte, würde der Würfel näher 
oder weiter vom Betrachter ent¬ 
fernt liegen. Natürlich müssen 
dann auch alle anderen Ecken 
entsprechend verschoben wer¬ 
den. Die 3-D-Koordinaten für eini¬ 
ge Ecken des Würfels zeigt Bild 3. 
'Einige', weil die verborgenen 
Koordinaten nicht gezeigt werden. 
Alle Koordinaten finden Sie in den 
Data-Zeilen in Listing Nr. 1. 
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Der dargestellte Würfel ist eine 
Art ’Einheitswürfel’ (in Anlehnung 
an den Einheitskreis), weil seine 
Seiten die Länge 1 haben. Diese 
Länge wurde gewählt, weil wir die 
einzelnen Koordinaten so leicht 
per Augenmaß bestimmen kön¬ 
nen. Wir hätten aber auch willkür¬ 
lich jede andere Länge nehmen 
können (bei einem Rechteck, das 
nur halb so tief ist wie der Würfel, 
ergeben sich so Werte von 0,5 für 
die Z-Achse, anstelle der 1-Werte). 

Alles schön und gut, aber wie 
zeichnen wir etwas mit 3 Koordina¬ 
ten mit den Grafikbefehlen, die 
doch nur 2 Argumente haben? 
werden Sie jetzt berechtigterwei¬ 
se fragen. Das ist der Punkt, an 
dem die Mathematik ins Spiel 
kommt, und hier wird auch klar, 
warum wir bisher so auf Sinus und 
Kosinus herumgeritten sind. Diese 
beiden Funktionen brauchen wir 
nämlich in einer FORMEL, UM 
3-D-KOORDINATEN IN 2-D-KO- 
ORDINATEN UMZURECHNEN. 

Um an diese Formel zu kommen, 
betrachten wir noch einmal ganz 
genau Bild 2: Wir sehen, daß der 
Eindruck, ein Punkt liege 'weiter 


hinten', dadurch zustande kommt, 
daß wir den Punkt entlang der Z- 
Achse verschieben. Die Z-Achse 
kann aber auch in eine andere 
Richtung zeigen, als sie es in die¬ 
sem Bild tut, indem wir einfach 
den im Bild eingetragenen Winkel 


ändern. Uns sind nun also die x, y 
und z-Koordinaten bekannt. X- und 
y-Koordinaten stimmen dabei be¬ 
reits, in bezug auf eine zwei-di- 
mensionale Darstellung jedenfalls. 
Wenn wir einfach den Quader mit 
diesen beiden Koordinaten zeich- 
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nen würden, und die Z-Achse un¬ 
ter den Tisch fallen lassen wür¬ 
den, erhielten wir ein Quadrat. 
Wir müssen nun aber zu diesen 
beiden Grund-Koordinaten noch 
eine Verschiebung hinzuaddieren, 
die sich aus dem Wert des Win¬ 
kels und aus dem Wert Z (also der 
Entfernung selbst) ergibt. Der 
Wert für Z entspricht dem Radius 
eines Kreises. Der Winkel ist da¬ 
bei IRGENDEIN Winkel dieses 
Kreises, und der Mittelpunkt des 
Kreises liegt auf dem Punkt x, y. 
Somit können wir den neuen 2-D- 
Punkt mit folgenden zwei Formeln 
ausrechnen: 

xneu = x + z*cos(winkel) 

yneu = y + z*sin(winkel) 


3-dimensional 


Das ist schon alles, was wir brau¬ 
chen, um 3-dimensionale Koordi¬ 
naten in 2-dimensionale Koordina¬ 
ten umzurechnen. Vorausgesetzt, 
wir haben in einem Maßstab von 1 
(wie in Bild 3) gearbeitet, müssen 
wir die neuen Werte nur noch an 
die aktuellen Bildschirmwerte an¬ 
passen. Dazu multiplizieren wir 
die Werte mit einem passenden 
Wert, um das gezeichnete Objekt 
in einer ausreichenden Größe 
darzustellen (z.B. mit 100), und ad¬ 
dieren 320 zu den x-, und 200 zu 
den y-Werten, um das Objekt in 
die Bildschirmmitte zu verschie¬ 
ben. In Listing Nr. 2 wird die prak¬ 
tische Anwendung für all das de¬ 
monstriert. 

Die Funktionsweise des Pro¬ 
grammes ist leicht erklärt: Am An¬ 
fang stehen die Daten für die zwölf 
Linien, aus denen sich der Würfel 
zusammensetzt. In jeder Data-Zei- 
le stehen dabei die Daten für eine 
Linie, d.h. Anfangspunkt in 3D-Ko- 
ordmaten und der Endpunkt in 3D- 
Koordinaten. Das Programm wählt 
Bildschirm-Modus 1 und wählt ei¬ 
nen Winkel von 45 Grad für die Z- 
Achse. Anschließend werden für 
alle zwölf Linien die Anfangs- und 
Endpunkte gelesen und in die ent¬ 
sprechenden Werte für ein zweidi¬ 
mensionales Koordinatensystem 
umgerechnet (Unterprogramm ab 
350). Dazu wird unsere oben ent¬ 
wickelte Formel benutzt. Grafik¬ 
kursor wird an die errechnete 2D- 
Startkoordinate gesetzt und eine 
Linie zur Endkoordinate gezogen 
(Zeile 310). Nachdem das 12 mal 
geschehen ist, wird nach einem 
neuen Darstellungswmkel gefragt, 
und das ganze beginnt von vorn. 


Wenn Sie sich den Würfel unter 
Verwendung von verschiedenen 
Winkeln angeschaut haben, gibt 
es verschiedene Möglichkeiten, 
das Programm zu verändern: 
Wenn Sie folgende Zeilen einfü- 
gen, haben Sie die Möglichkeit, 
die Tiefe des Würfels frei zu be¬ 
stimmen, indem Sie einen Faktor 
angeben, mit dem die jeweilige z- 
Koordinate multipliziert wird, be¬ 
vor in 2D-Koordinaten umgerech¬ 
net wird: 

205 zfaktor = 1 

235 zl = zl*zfaktor:z2 = z2*zfaktor 

325 locate 1,23:INPUT Z-Faktor = 
.zfaktor 

Ein ähnliches Ergebnis können 
Sie natürlich erzielen, indem Sie 
direkt in den DATA-Zeilen jeweils 
die 3. und 6. Zahl verändern, also 
Z. Eine weitere Manipulationsmög¬ 
lichkeit bietet sich in bezug auf 
Vergrößerung/Verkleinerung des 
Objekts an. Dazu müssen lediglich 
ALLE Koordinaten vor der Um¬ 
rechnung in 2D-Koordmaten mit ei¬ 
nem Faktor multipliziert werden. 
Ist dieser Faktor >1, wird das Ob¬ 
jekt vergößert, ist er <1, wird es 
verkleinert. Der nächste Schritt ist, 
die Figur selbst zu verändern. Fü¬ 
gen Sie z.B. einmal folgende Data- 
Zeilen ein, und ändern Sie die 
Linien-Anzahl in Zeile 220 in 16: 

185 DATA 0,0,0,0.5,0.5,-0.5 

186 DATA 1,0,0,0.5,0.5,-0.5 

187 DATA 0,1,0,0.5,0.5,-0.5 

188 DATA 1,1,0,0.5,0.5,-0.5 


Dadurch setzen Sie dem Würfel 
eine Spitze auf. Und wenn Sie sich 
daran satt gesehen haben, können 
Sie ja auch ganz neue Figuren de¬ 
finieren: In Bild 4 ist beispielswei¬ 
se ein ’T’ dargestellt. Denken Sie 
daran, auch die Linien-Anzahl in 
Zeile 220 zu ändern. In eigenen 
Kreationen können natürlich auch 
größere (oder kleinere) Zahlen als 
0 und 1 verwendet werden. 

Damit Ihr Objekt optimal auf den 
Bildschirm paßt, sollten evtl, die 
Parameter in den Zeilen 260 bis 
290 geändert werden (100 be¬ 
stimmt dabei die Größe, 320/200 
rücken das Bild in die Bildschirm¬ 
mitte). Im folgenden werden wir 
uns abschließend damit be¬ 
schäftigen, wie man verdeckte 
Linien unterdrücken kann (so daß 
man nicht mehr durch die Objekte 
durchsehen kann), und wir wer¬ 
den mathematische Funktionen in 
3D plotten. Bis jetzt haben wir 
3-dimensionale Körper auf dem 
(2-dimensionalen) Bildschirm ab¬ 
gebildet. Dazu wurden natürlich 
Umrechnungsformeln benötigt, 
und zwar 

sx = x + z*cosCwinkel) 

sy = y + z*sin(winkel) 

Wir wollen diese Formeln nun 
dazu benutzen, um 3-D-Funktionen 
darzustellen. Es gibt natürlich 
noch andere (und sicher auch bes¬ 
sere) Methoden, um eine solche 


Bild 4: 3D-Koordinaten eines T (teilweise) 
" 2 - 4-1 3 - 4-1 

3-3-1 
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Listing Nr 1: 

Sie 3D-Kaordinaten Fuer den WuerFel... 

10 REH DatenFormat: 

20 REH xl, y1 ,z 1 ,xE, u2 ,z2 
30 REH 

40 DATA 0,1,0,1,1,0 

50 DATA 1,1,0,1,0,0 

BO DATA 1,0,0,0,0,0 

70 DATA 0,0,0,0,1,0 

60 REH das war das vordere Quadrat 

SO DATA 0,1,1,1,1,1 

100 DATA 1,1,1,1.0,1 

110 DATA 1,0,1,0,0,1 

ISO DATA 0,0,1,0,1,1 

130 REH das war das hintere Quadrat 

140 DATA 0,1,0,0,1,1 

150 DATA 0,0,0,0,0,1 

IGO DATA 1,0,0,1,0,1 

170 DATA 1,1,0,1,1,1 

160 REH das waren die 4 Uerbindungslinien 


10 REH TestauFgabe E aus Teil 2: 

EO REH Spirale 
30 REH 

40 HOQE l-.INK 0,0: BORDER 0:INK 1, SS 
45 radius-1 

50 DES:FOR winkel-0 TO 360*10'C10 kompl.Kreise) 

SO x-C0S(winkBl)+radius+320 

70 ySINCwinkel3*radius+200 

BO PLDT x,y,1 

SO radius-radius+O.1 

100 NEXT Winkel 


Listing Nr. 2: 


Und das komplette Programm: 

10 REH DatenFormat: 

EO REH xl,yl,zl,xS,yS,zS 
30 REH 

40 DATA 0,1,0,1,1,0 
50 DATA 1,1,0,1,0,0 
BO DATA 1,0,0,0,0,0 
70 DATA 0,0,0,0,1,0 

BO REH das war das vordere Quadrat 
SO DATA 0,1,1,1,1,1 
100 DATA 1,1,1,1,0,1 
110 DATA 1,0,1,0,0,1 
1E0 DATA 0,0,1,0,1,1 
130 REH das war das hintere Quadrat 
140 DATA 0,1,0,0,1,1 
150 DATA 0,0,0,0,0,1 
ISO DATA 1,0,0,1,0,1 
170 DATA 1,1,0,1,1,1 

1B0 REH das waren die 4 Uerbindungslinien 
130 REH 

EOO HODE 1:DES:winkel-45 
E10 RESTORE 40 

FOR linie-1 TD IE •IE Linien sind zu zeichnen 
READ xl,yl,zl,xE,y2,zE 
£40 GOSUB 350 'errechne E-D Werte 
ESO REH nun Werte Fuer Bildschirm korrigieren 
EGO xnl-xnl*100+320 
E70 xn£-xn2"100+320 
280 ynl-ynl*100+200 
ESO yn2-yn2*100+200 

REH und nun zeichnen 
PLOT xnl,ynl,1 : DRAU xn2,yn2 
320 NEXT linie 
330 LOCATE 1,24:INPUT 
340 MODE 1:GOTO E10 
3S0 xnl-xl+Czl*COSCwinkel)) 

3B0 xn2-x2+(z2*C05(Winkel1) 

370 ynl-yl+Czl+SINCwinkell) 

300 yn2“y2+Cz£*SINCwinkel5 3 
RETURN 


10 REH TestauFgabe 1 aus Teil 2: 

EO REH Sinuswelle 
30 REH 

40 HODE E:INK 0,0:BORDER O:INK 1,26 
50 x-0:DEG 

BO FOR winkel-0 TO 63S 
70 y-S INC winke13*150+200 
BO PLOT x.y.l 
SO x-x+1 
100 NEXT Winkel 


220 

E30 


*45 Grad Uinkel 


300 

310 


'Winkel-" . winkel 


390 


leicht nachvollziehbar zu sein. Die 


wenn dann diese so entstandenen 
3D-Koordinaten mit unseren be¬ 
kannten Formeln umgerechnet 
werden, können wir die Platte 
schon auf den Bildschirm plotten, 
vorausgesetzt, wir gleichen die 


mensetzt, liegen auf einer anderen 
Höhe als die restlichen Punkte der 
Platte. Der Zuckerhut stellt eine 
Ausbeulung in der Platte dar, wo¬ 
bei sein Mittelpunkt am weitesten 
von der Platte entfernt ist und er 
am Rand immer weniger hoch 
wird. Wir brauchen also eine pas¬ 
sende Funktion, die uns ein sol¬ 
ches Bild liefert. Wenn Sie sich 
den Zuckerhut im Querschnitt von 
der Seite vorstellen, werden Sie 
feststellen, daß sein Profil eine 
ziemliche Ähnlichkeit mit der Nor- 


Figur, die ich darstellen möchte, 
könnte man als ausgebeulte Platte 
oder als Zuckerhut bezeichnen. 
Da ich am Anfang selbst nicht die 
geringste Ahnung hatte, wie man 
einen Zuckerhut auf den Bild¬ 
schirm bringt, habe ich mit dem 
Einfachsten angefangen, mit der 
geraden Grundplatte selber. Eine 
gerade Platte hat immer densel¬ 
ben y-Wert, also z.B 0 (sie ist ja 
eben). Dann braucht man nur noch 
eine Schleife, um alle x- und z - 
Koordinaten zu erzeugen, und 


Koordinaten noch an die realen 
Bildschirmkoordinaten an (100/110). 
Programm Nr. 1 arbeitet nach ge¬ 
nau diesem Prinzip. 


Ohne Hut... 


Aber die Hauptsache fehlt 
noch. Der Zuckerhut muß nun 
durch unterschiedliche Höhen 
dargestellt werden, denn die 
Punkte, aus denen er sich zusam- 


Normalparabel 


malparabel hat. Es liegt also nahe, 
die Höhe jedes einzelnen Punktes 
mit Hilfe der Normalparabel (die 
Funktion x2 liefert die Normalpa¬ 
rabel) auszurechnen. Wir haben 
dabei zwei Probleme. Das erste 
Problem: Die Normalparabel ist 
'genau falsch herum’, d.h,, sie ist an 
der Stelle am niedrigsten, an der 
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der Zuckerhut am höchsten ist. 
Dieses Problem können wir lösen, 
indem wir die Formel umstellen, 
die Normalparabel praktisch spie¬ 
geln: 
y = x2 

= > y=(-ABS(x)+(xmax-xmin)/2)2 
Und da xmax (5) und xmin (-5) 
feststehen, können wir die Formel 
noch weiter vereinfachen. 

= > y = (-abs(x) + 5)2 
Damit wäre das erste Problem 
gelöst. Diese neue Formel bringt 
uns (bei entsprechender 
Streckung/Stauchung) die richtige 
Zuckerhut-Form. Aber unser zwei¬ 
tes Problem besteht noch, näm¬ 
lich: Diese Formel liefert nur ein 
2-D-Resultat (x und y). Es geht also 
nun darum, wie man 3-D- 
Koordinaten erzeugen kann. Nun, 
das ist auch nicht so schwer, wie 
es aussieht (wenn man einmal 
weiß, wie's geht). Bei der obigen 
Formel fehlt die Tiefe, die z- 
Koordinate völlig, und nun stellt 
sich die Frage, wie man die y- 
Koordinate aus x und z errechnet. 


— 

Die Lösung 


Die Lösung ist so einfach, daß sie 
schon ein bißchen primitiv er¬ 
scheint: Man multipliziert die bei¬ 
den Koordinaten miteinander (das 
Produkt aus x- und z-Koordinaten 
ergibt die Höhe). Die komplette 
Formel für den Zuckerhut lautet 
demnach: 

= > y = (-abs(x)+5)2 + 

(-abs(z) + 5)2 

Für die z-Koordinate können wir 
die Formel unverändert überneh¬ 
men, da auch zmin und zmax -5 
und 5 sind. Mit Programm Nr. 2, 
das mit unserer gerade herausge¬ 
fundenen Formel arbeitet, kann 
man den fertigen Zuckerhut be¬ 
wundern, allerdings müssen eini¬ 
ge Besonderheiten im Programm 
beachtet werden: Erst einmal ha¬ 
ben wir die Schrittweite (Zeilen 
40,50) stark herabgesetzt. Dadurch 
werden mehr Punkte gezeichnet, 
und das Bild wird deutlicher. Au¬ 
ßerdem wird y durch 400 divi¬ 
diert, da sonst viel zu große Werte 
von der Formel kommen und wir 
nur einen kleinen Ausschnitt vom 
Zuckerhut sehen würden. Da¬ 
durch, daß wir y verkleinern, er¬ 
reichen wir den Eindruck, der Be¬ 
trachter würde aus sehr viel grö¬ 
ßerer Höhe auf den Zuckerhut 
heruntersehen (oder eben: der 


10 * Unterdrueckung van verdeckten Linien 
20 ’ bei einem Wuerfel in 3D Darstellung. 

30 ’ 

40 MODE 2:CALL &BC02:DIM f<8,5> 

50 CLS 

60 PRINT "Bitte geben Sie den Betrachterstandpunkt 
ein: " 

70 PRINT"(z.B. x=50,y=50,z=20)":PRINT 

BO INPUT "Bitte geben Sie die x —Koordinate ein:",b 

x 

90 INPUT "Bitte geben Sie die y-Koordinate ein:",b 

y 

100 INPUT "Bitte geben Sie die z-Koordinate ein:", 
bz 

110 CLS 

130 * suche nach der verdeckten Kante 
150 RESTORE 

160 vdln=0 'verdeckte Linien Nummer 

170 FOR t=l TO B 'alle B Kanten untersuchen 

1B0 READ x,y,z,ll,12 

190 entf=SQR((x-bx) A 2+ <y-by> ~2+(z-bz)~2> 

200 'das war die Entfernungsformel 

210 IF entf>vdln THEN vdln=t:vd=entf 

220 NEXT 

240 ' Hilfswerte aus Betrachterstandpunkt erechnen 
260 bx=bx+0.000001 ' gegen Divison/O 
270 h1=ATN(by/bx):h2=ATN(bz/bx) 'Hilfswerte hl und 
h2 

290 RESTORE 

310 FOR t=l TO B ' errechenen der 2D Koord. 

320 ' 

330 READ x,y,z,ll,12 
350 ' liest x/y/z Koordinate und 
360 ' Nummer der Verbindungslinien 
3B0 xa=x 

390 x=~xa*SIN(hl)+y!SIN(hl> 'x errechnen 

400 ya=y 

410 y=—x alCOS(hl)*SIN(h2> 

420 y=y-ya*SIN(hl)*SIN(h2)+z*C0S(h2) 

440 ' nun die errecheten Werte in ein Feld schreib 
en 

460 f (t, l)=x:f <t,2)=y:f <t,3)=z:f <t,4)=U:f <t,5)=12 

470 NEXT t ’ fuer alle 8 

490 ' nun die Linien zeichnen 

510 FOR t=l TO B 

530 IF t=vdln THEN 620 'diese Linie ist nicht sic 
htbar! 

540 xs=f<t,1)sys=fCt,2) 

560 ' nur zeichnen, wenn auch die beiden Verbindun 
gs- 

570 ' linen sichtbar sind! 

590 nr=f (t, 4) : IF nrOvdln THEN xe=f (nr, 1) : ye=f (nr, 
2):GOSUB 810 

600 nr=f(t,5):IF nrOvdln THEN xe=f (nr, 1) :ye=f (nr, 
2):GOSUB BIO 
620 NEXT t 

630 ' das war es schon 

650 WHILE ... 50 

670 ' nun folgen die Daten fuer den Wuerfel 

6B0 ' x,y,z wie gehabt, dann die Nummern der 

690 ' beiden Linien, die mit dieser Kante 

700 ' verbunden sind 

720 DATA 0,0,0,2,3 

730 DATA 0,0,200,1,5 

740 DATA 0,200,0,6,5 

750 DATA 200,0,0,1,7 

760 DATA 0,200,200,3,8 

770 DATA 200,200,0,4,8 

7B0 DATA 200,0,200,4,2 

790 DATA 200,200,200,7,6 

810 ' Linie von xs,ys nach xe,ye 

820 ’ in Bildmitte zentriert zeichnen 

840 PLOT xs+320,(400-ys)-200:DRAW xe+320,(400-ye)- 

200,1:RETURN 
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10 * Listing 2s Eingedrueckte Platte 
20 DEGsMODE 2 
30 winkel=2 

40 FÜR x=-5 TO 5 STEP 0.3 
50 FÜR z=—5 TO 5 STEP 0.5 
60 y=((-ABS Cz)+5)~2)*((-ABS(x)+5)~2) 

70 y=y/400 'dadurch ganze Platte sichtbar 
80 sx=x+z*COS(winkel) 

90 sy=y+z»SIN(winkel) 

100 sx=sx*32+320 
110 sy=sy*200+50 

120 PLOT sx,sy,1:IF z<>-5 THEN DRAW xa,ya 
130 x a=sx;ya-sy 
140 NEXT z,x 


Hut wäre viel kleiner). Und nicht 
zuletzt wenden wir auch noch ei¬ 
nen Trick an, um das Bild plasti¬ 
scher erscheinen zu lassen. 
Grundsätzlich gilt: Je mehr Punkte 
wir zeichnen, um so plastischer 
wird das Bild, um so mehr Einzel¬ 
heiten sind zu erkennen (deshalb 
haben wir ja auch die Schrittweite 
der beiden Schleifen geändert). 
Leider dauert das Zeichnen bei 
mehr Punkten auch länger, teilwei¬ 
se sehr viel länger . Wir behelfen 
uns hier mit einem Trick: Wir ver¬ 
binden den Punkt, den wir gerade 
zeichnen, mit dem zuletzt gezeich¬ 
neten Punkt und überbrücken so 
die Leerräume dazwischen. In Zei¬ 
le 110 wird die Linie gezeichnet 
(aber nicht, wenn die Schleife das 
Plattenende erreicht hat, sonst 
würden ja zwei nicht nebeneinan¬ 
der liegende Punkte verbunden), 
und in Zeile 120 wird die Position 
des neuen Punktes abgespei¬ 
chert, damit beim nächsten Punkt 
eine Linie dorthin gezogen wer¬ 
den kann. (Es ginge übrigens auch 
ohne diese Variablen, — überle¬ 
gen Sie einmal, wie). 


Verdeckte Linien 


... sind ein Problem bei der 3D- 
Darstellung. Die notwendigen For¬ 
meln zum Unterdrücken dieser ei¬ 
gentlich nicht sichtbaren Linien 
sind teilweise sehr kompliziert und 
langsam, so daß man sehr lei¬ 
stungsstarke Rechner braucht, vor 
allem bei komplexeren Gebilden. 
Weil BASIC, auch das des Schnei¬ 
ders, nicht gerade Geschwindig¬ 
keitsrekorde aufstellt, solange 
man das Programm nicht kompi¬ 
liert (in Maschinensprache über¬ 


setzt), wollen wir uns mit einem 
einfacheren Beispiel begnügen, 
mit unserem altbekannten Würfel. 
Beim Würfel wird die Sache aller¬ 
dings wirklich kinderleicht, denn 
es hat sich herausgestellt, daß der 
Eckpunkt des Würfels, der am 
weitesten vom Betrachter entfernt 
ist, gleichzeitig auch die nicht 
sichtbare Ecke ist. Alle drei mit 
diesem Eckpunkt verbundenen Li¬ 
nien sind dann auch nicht sichtbar. 
Da das Programm sehr ausführlich 
dokumentiert ist, möchte ich mir 
hier jeden weiteren Kommentar 
dazu sparen, schließlich haben 
wir die Grundprinzipien der 3D- 
Programmierung schon in der letz¬ 
ten Folge 'durchgekaut'. Nur auf ei¬ 
nes sollten Sie achten: Wir drehen 
diesen Würfel nicht , indem ein 
Winkel geändert wird, sondern in¬ 
dem wir den Betrachterstand¬ 
punkt ändern. Daraus ergeben 
sich dann auch neue Umrech¬ 
nungsformeln, die sich aus den al¬ 
ten Formeln herleiten lassen. Al¬ 
lerdings würde es zu weit führen, 
diese nun zu erklären. 

Damit wären wir am Ende des 
Grafikkurses angelangt. Hoffent¬ 
lich hat es Ihnen etwas Spaß ge¬ 
macht, 
tmb 


10 ' Listing Nr.ls Eine einfache Platte 
20 DE6:MODE 2:INK 0,0:B0RDER 0 
30 winkel=2 'Betrachterwinkel 
40 FOR x=-5 Tü 5 
50 FOR z=-5 TO 5 

60 y=0 'da die Platte eben ist!! 

80 sx=x+z*COS(winkel) 

90 sy=y+z*5IN(winkel) 

100 sx=sx*32+320 
110 sy=sy*200+50 
120 PLOT sx,sy,1 
140 NEXT z,x 


Listing 3 


Listing Nr. 3 stellt eine weitere 
Variante des Zuckerhutes dar, nur 
werden hier noch die einzelnen 
Höhenstufen unterschiedlich kolo¬ 
riert, einfach indem abgefragt 
wird, wie groß y ist, und dann eine 
dementsprechende Farbe ausge¬ 
wählt wird. 


10 ' Listing 3s Platte in Farbe 
20 DEGsMODE 1 
30 winkel=2 

40 FOR x=“5 TO 5 STEP 0.1 
50 FOR z=-5 TO 5 STEP 0.2 
60 y=((-ABS(z)+5)^2)*((-ABS(x>+5)~2> 

70 y=y/400 

BO sx=x+z*COS(winkel> 

90 sy=y+z*SIN(winkel) 

100 sx=sx*32+320 
110 sy=sy*200+50 

120 IF y>0.7 THEN f=3 ELSE IF y>0.05 THEN f=2 ELSE 
f=l 'Farbwahl 
130 PLOT sx,sy,f 

140 NEXT z,x ■ 
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Anwendum 


Säulen¬ 
diagramme 
für Ihren 
CPC 



ÜMsatz 





Mit diesem Programm können 
Sie Säulendiagramme mit einer 
beliebigen Anzahl von Säulen er¬ 
zeugen. Sie können wählen, ob die 
eingegebenen Daten als Prozent¬ 
werte aufgefasst werden sollen. In 
diesem Fall warnt das Programm 
Sie vor einer Überschreitung der 
100%-Grenze. Im Fall der Unter- 
schreitung wird automatisch eine 
weitere Säule mit der Bezeichnung 
,.sonst." erzeugt. Sie stellt die feh¬ 


lenden Prozente zu 100% dar. 

Bei normaler Auswertung der 
Daten werden schon bei der Ein¬ 
gabe das Maximum und das Mini¬ 
mum bestimmt. Diese bestimmer 
die Einteilung der Skala am linken 
Rand des Diagramms. Ist das Mini¬ 
mum größer als Null, so beginnt 
die Skala bei Null. Säulen mit ne¬ 
gativen Werten werden von der 
Grundlinie nach unten gezeichnet. 
Jede Säule kann mit einem Text 


bezeichnet werden. Dabei ist 
selbstverständlich darauf zu ach¬ 
ten, daß dieser bei einer großen 
Anzahl von Säulen nicht allzu lang 
sein darf. Der einzugebende Korn 
mentar wird unter dem Diagramm 
ausgegeben. Eine Ausgabe auf 
Drucker ist nicht vorgesehen, 
kann jedoch mit einer Hardcopy 
vorgenommen werden. 


1 'Saeulendiagramme 

2 ‘<c> 1986 

3 Thomas Barndt 

4 ' 

10 MODE 2 
20 minreal=—1E+38 
30 ORIGIN 0,18,0,639,399,0 
40 WINDOW #0,2,79,2,22 
50 WINDOW #1,1,80,24,25 
60 SYMBOL 255,255 

70 PRINT:PRINTTAB(10)"Saeulendiagramme by THBCS 
80 PRINT 

90 INPUT"Anzahl der Saeulen:",anz 
100 INPUT"Angaben in Prozent <J/N)";p$ 

110 p$=UPPER* (p$) 

120 IF p$="J" THEN proz=-l:GOTO 140 ELSE proz=0 
130 IF p*<>"N" THEN 100 

140 IF proz THEN ybez*="Prozent“ ELSE INPUT"Beze 
ichnung der Y—Achse:“,ybez* 


150 LINE INPUT"Kommentarkam* 

160 * 

170 * ** Werte einiesen ** 

180 ' 

190 DIM wert(anz),bez*(anz) 

200 anz=anz-l 

210 sum=0:maxi=minreal:mini=-minreal 
220 FOR i=0 TO anz 
230 PRINT"Wert“i+l": 

240 INPUT""»wert<i) 

250 INPUT”Bezeichnung:",bez*<i> 

260 sum=sum+wert(i) 

270 IF wert(i)>maxi THEN maxi=wert(i) 

280 IF wert (iXmini THEN mini=wert(i> 

290 NEXT 

300 sonst-flag=0 

310 IF NOT proz THEN 370 

320 IF sum<100 THEN anz=anz+l:wert(anz>=100-sum: 
bez*( anz) - “sonst. *' 

330 IF sumMOO THEN PRINT"Summe > 100X ! Einga- 
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be wiederholen."iGOTO 210 

550 PRINT CHRS(255); 

340 ' 

560 NEXT 

350 ' ** Y-Achse einteilen ** 

570 * 

360 ' 

580 ' ** Diagramm zeichnen ** 

370 CLS 

590 ' 

380 PRINT41,kom$ 

600 bereich=raaxi-mini 

390 TAG 

610 xan-f * (MAX (Imi , lma)+3) *8 

400 MOVE 3,34:PRINTybez S ; 

620 breite*639-xanf 

410 nul=58 

630 sbreite=breite/((anz+1)*2) 

420 MOVE 0,18:DRAM 0,380:DRAW 639,380:DRAW 639,1 

640 xan-f=*xan-f+sbr eite/2 

8:DRAM 0,18 

650 IF mini<0 THEN nul=nul+haehe/(bereich/(-mini 

430 IE proz THEN maxi*100:mini=0 

) ) 

440 IF mini>0 THEN mini=0 

660 MOVE 70,nul:DRAM 639,nul 

450 hoehe=376-nul 

670 FOR s=0 TO anz 

460 prolO*hoehe/10 

680 IF Mert(s)<>0 THEN shoehe=nul+hoehe/(berei 

470 TAG 

ch/wert(s)):sehritt=SGN(wert(s))*2 ELSE sh 

480 mi*=STR*(mini):maS*STR*(maxi> 

oehe*nul:schritt=l 

490 lmi=INSTR(mi*,".">-lxIF Imi THEN lmi=LEN(mi* 

690 MOVE xanf+sbreite*(s*2),50 

) 

700 PRINTbez*(s); 

500 1ma=INSTR(maf f “.")-l:IF lma THEN lma=LEN(ma* 

710 FOR y=nul TO shoehe STEP schritt 

> 

720 MOVE xan-f+sbreite* (s*2) ,y 

, 510 f orm*=STRING* (MAX (1 mi , lma) ,"#“)+•*.##" 

730 DRAM xan-f+sbreite* <s*2+l) ,y 

1 520 FÜR i=0 TD 10 

740 NEXT 

530 MOVE 1,nul+i*prolO 

750 NEXT 

540 IF NOT proz THEN PRINT USING i arm*;mini + ( < 

760 GOTO 760 

maxi—mini)/10)*i;:ELSE PRINT mini+((maxi—m 


^ i n i ) / 10) * ij 




Beispiel fuer ein Saeulendiagrann 
40 ‘ 


30 " 



SPD 


DP 


sonst. 


CDU 


Gruene 


Prozent 


lalt len 1987 
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Mineralien bestimmen mit dem 


CPC 464 


Dieses Programm erleichtert die 
Bestimmung von Mineralien. 
Wenn Sie schon einmal auf einer 
Wanderung oder im Urlaub einen 
ungewöhnlichen Stein gefunden 
haben, ist es sehr wahrscheinlich, 
daß es sich um ein Mineral han¬ 
delt. Oft versucht man dann, das 
Mineral zu bestimmen, indem man 
in entsprechenden Büchern nach 
ähnlich aussehenden Mineralien 
sucht und die Eigenschaften ver¬ 
gleicht. Da es sehr viele Minera¬ 
lien gibt, ist dies oft eine sehr auf¬ 
wendige Arbeit. 

Wenn Sie dieses Programm ab¬ 
getippt haben, brauchen Sie nur 
noch die Eigenschaften Ihres ge¬ 
fundenen Minerals einzugeben. 
Das Programm sucht dann alle Mi¬ 
neralien mit diesen Eigenschaften 
aus den DATA-Zeilen und zeigt sie 
an. Sie brauchen dann nur noch 
die vorgeschlagenen Mineralien 
mit dem gefundenen zu verglei¬ 
chen. Es werden vier Kriterien zur 
Bestimmung verwendet: 
Kristallsystem 
Härte 
Farbe 
Strich 


Wenn Sie nicht alle vier Merk¬ 
male Ihres Minerals kennen, so ist 
dies nicht weiter schlimm. Es ist 
nur wahrscheinlich, daß der Com¬ 
puter Ihnen dann mehr Vorschlä¬ 
ge ausgibt. Die bereits abge¬ 
druckten Mineralien sind dem 
Kosmos-Steinführer entnommen. 
Damit das Programm optimal ar¬ 
beiten kann, sollten noch mög¬ 
lichst viele Mineralien in DATA- 
Zeichen angehängt werden. Dazu 
müssen Sie wissen, in welcher Rei¬ 
henfolge die Informationen auftre- 
ten. Als erstes steht der Name des 
Minerals. Es folgt das Kristallsy¬ 
stem. Es können durchaus mehre¬ 
re Kristallsysteme Vorkommen; da¬ 
her werden diese mit einem gro¬ 
ßen ,,K" abgeschlossen. Die Kri¬ 
stallsysteme sind nach folgendem 
Schlüssel codiert: 


Danach müssen zwei Zahlen für 
die Härte stehen; die kleinere zu¬ 
erst. Sollte die Härte nicht angege¬ 
ben sein, so tippen Sie für jede 
Zahl einfach zwei Fragezeichen. 
Dies war zum Beispiel bei Arsen 
der Fall. Nun kommen die Farben, 
in denen das Mineral vorkommt. 
Diese sind wie folgt geschlüsselt: 

r 

Die Farben müssen mit einem gro¬ 
ßen „F" abgeschlossen werden. 
Als letzte Angabe folgt der Strich. 
Dort können ebenfalls mehrere 
Farben Vorkommen. Sie sind nach 
demselben Schlüssel codiert. Die 
Angaben für den Strich schließt 
man mit einem großen „S" ab. Den 
Strich eines Minerals ermittelt 
man mit einem Strichtäfelchen aus 
Keramik, welches eine rauhe 
Oberfläche besitzt. Daran reibt 
man das zu bestimmende Mineral. 
Die Farbe des so gewonnen Ab,- 
riebs ist der Strich. tb 


1 

rhombisch 

6 

hexagonal 

2 

monoklin 

7 

triklin 

3 

trigonal 

B 

oktaedrisch 

4 

kubisch 

9 

amorph 

5 

tetragonal 




2 

wei ß 

9 

grau 

3 

grün 

10 

schwarz 

4 

gelb 

11 

silberweiß 

5 

rot 

12 

goldgelb 

6 

blau 

13 

kupferrot 

7 

violett 

14 

hei 1 grau 

8 

braun 

15 

farblos 


10 MODE 2jBORDER O: INK 1,26*INK 0,0*PEN 1*PAPER 
0 

20 WINDOW #1,3,43,5,20:WINDOW #4,2,80,23,25 
30 WINDOW #2,47,79,5,20 
40 DEFINT »~z 

50 DIM kays*(30),farbe*C30),strich*(30) 

60 PRINTTAB(30};“— Minerale bestimmen — 

70 PRINT TAB(36);CHR*(164>j" by THBCS" 


80 * 

90 ' ** Rahmen ** 

100 * 

110 LOCATE 1,3 

120 PRINT CHR*(150)fSTRING*(42,CHR*(154)) ;CHR*(1 
56) ; CHR*(150) ; STRING*(34,CHR*(154))jCHR*(156 
) i 

130 FOR i *=4 TO 20 

140 LOCATE 1,i : PRINTCHR*(149); 

150 LOCATE 44,i*PRINTCHR*(149); 

160 LOCATE 45,i:PRINTCHR*(149); 

170 LOCATE 80,i:PRINTCHR*(149); 

180 NEXT 

190 LOCATE 1,21:PRINT CHR*(147);STRING»(42,CHR*( 
154));CHR*(153);CHR*(147)jSTRING*(34,CHR*(15 
4));CHR*(153)j 
200 ' 

210 ' ** Farben und Kristallsysteme lesen ** 

220 ' 

230 i=0 

240 READ ksysC(i) 

250 IF ksys*(i)=“ende" THEN kmax=i-1:GOTO 270 
260 i=i+l:GOTO 240 
270 i=0 

280 READ -färbe* (i) 

290 IF färbe*(i)="ende" THEN fmax=i—1:GOTO 310 
300 i=i+l;GOTG 280 
310 * 

320 * ** Menue ** 

330 ' 

340 PRINT#1, H M — Suchen nach Merkmalen" 


















Anwendung 


146 


Schneider spezial 


350 PRINT#1,"S — Suchen nach Namen" 

360 PRINT#1, "A — Ausgabe aller Minerale" 

365 PRINT#1,"E — Ende des Programms" 

370 wähl*=UPPER*(INKEY*):IF wahl*= M " THEN 370 
380 IF INSTR(“MSAE",wähl*)<1 THEN 370 
390 DN INSTR("MSAE“,wähl*) GOSÜB 550,1440,460,42 
5 

400 CLS#4:PRINT#4,TAB(8);"< ENTER >" 

410 CALL &BB06 

420 CLS#1:CLS#4:CLS#2:GOTO 320 
425 MODE 2:END 
430 ' 

440 * ** Ausgabe aller Minerale ** 

450 ' 

460 RESTORE 30000 

470 PRINT#4,TAB(8) ; "< ENT„ER >" 

480 READ name* 

490 CLS#1 
500 GOSUB 1550 
510 READ namet 

520 IF name*="ende" THEN RETURN 
530 CALL &BB06 :GOTO 490 
540 ' 

550 * *** Merkmale eingeben *** 

560 * 

570 CLS#2:PRINT#2,TAB <IO);"MERKMALE":PRINT#2 
580 CLS#1:PRINT#1,TAB(10);"KISTALLSYSTEM":PRINT# 
1 

590 FOR i=0 TO kmax 

600 PRINT #1,i;ksys*(i> 

610 NEXT 

620 CLS#4:INPUT#4,"Ihre Wahli ",wahl*:ksy*«VAL(w 
ahl*) 

630 IF ksys<0 OR ksys >i-l THEN 620 

640 PRINT#2,“Kristall System: ksys*(ksys )\ 

650 CLS#1 
660 ' 

670 CLS#1:PRINT#1,TAB(1O)J"FARBE":PRINT#1 
680 FOR i=0 TO fmax 

690 L0CATE#1,(i\10)*15+I,i MOD 10+3 
700 PRINT #1 , i ;färbe*(i ); 

710 NEXT 

720 CLS#4: INPUT#4," Ihre Wahl: " ,wahl*:f arbe=VAL ( 
wähl*) 

730 IF farbeCO OR farbe>i-l THEN 720 

740 PRINT#2,"Farbe s ";färbe*(färbe); 

750 farbe=farbe+I 
760 ‘ 

770 CLS#1:PRINT#1,TAB(10);"STRICH":PRINT#1 
780 FOR i=0 TO fmax 

790 LOCATE#1,(i\10> *15+1,i MOD 10+3 
800 PRINT #1,i;färbe*(i); 

810 NEXT 

820 CLS#4:INPUT#4,"Ihre Wahl: ",wähl*:strich=VAL 
(wähl*) 

830 IF strichCO OR strich>i-l THEN 820 

840 PRINT#2,"Strich : färbe*(strich) 

850 strich=strich+l 
860 ' 

870 CLS#1:PRINT#1,TAB(IO);"HAERTE (nach F.Mohs)" 



:PRINT#1 



B80 

PRINT#1," 

1 

Talk O Unbekannt 

890 

PRINT#1," 

2 

Gips" 

900 

PRINT#l," 

3 

Kalzit" 

910 

PRINT#1," 

4 

Fluorit" 

920 

PRINT#1,“ 

5 

Apatit” 

930 

PRINT#1," 

6 

Orthoklas" 

940 

PRINT#1," 

7 

Quarz" 

950 

PRINT#1," 

B 

Topas" 

960 

PRINT#1," 

9 

Korund" 

970 

PRINT#1," 

10 

Diamant" 


980 PRINT#1:PRINT#1," Jedes angegebene Minera 

1 ritzt das“ 

990 PRINT#1," Varangegangene bzw. wird von de 
m" 

1000 PRINT#1," Nachfolgenden geritzt." 

101O CLS#4:INPUT#4,"Ihre Wahl: ",wahl*:haerte!=VA 
L(wähl*) 

1020 IF haerte!<1 AND haerte!<>0 OR haerte!>10 TH 
EN 101O 

1030 PRINT#2,"Haerte : 

1040 IF haerte!<1 THEN PRINT#2,“Unbekannt" ELSE P 
RINT#2,haerte! 

1050 CLS#4 


1060 ' 

1070 ' - Hier evtl, weitere Bestimmungskriterien 

#*• 

1080 ' * 

1090 ' ** 
llOO ' 

1110 ' ** Suchen der in Frage kommenden Minerale 

#* 

1120 ' 

1130 CLS#1:PRINT#1,"Vorschiaege:":PRINT#1 
1140 RESTORE 30000 
1150 READ namel 

1160 IF name*="ende" THEN RETURN 
1170 k«ysflag«0 
11S0 READ k* 

1190 IF k*=“K“ THEN 1230 
1200 k**VAL (k*) 

1210 IF k=ksys OR ksys=0 THEN ksysflag—1 
1220 GOTO 1180 
1230 haertef 1 ag*=0 
1240 READ hl*,h2* 

1250 IF hl*=“?7“ THEN haertef lag —1: GOTO 1280 
1260 hl!=VAL(hl*>:h2!-VAL(h2*) 

1270 IF haerte!>=hl! AND haerte!<“h2! OR haerte!" 

0 THEN haerteflag»-1 
1280 farbflag=0 
1290 READ f* 

1300 IF f*="F" THEN 1340 
1310 f=VAL(f*> 

1320 IF f=farbe OR farbe»l THEN farbflag— 1 
1330 GOTO 1290 
1340 strichf1ag=0 
1350 READ s* 

1360 IF s*=“S" THEN 1410 
1370 s=VAL(s*) 

1380 IF s=strich OR strich=l THEN strichf1ag=-l 
1390 GOTO 1350 
1400 ' 

1410 IF ksysflag AND haerteflag AND farbflag AND 
strichflag THEN PRINT#1,name* 

1420 GOTO 1150 
1430 ’ 

1440 ' ** Suchen nach Namen ** 

1450 ' 

1460 RESTORE 30000 

1470 CLS#1:INPUT#4,"Welches Mineral suchen Sie";s 
uchname* 

1480 suchname*=UPPER*(suchname*) 

1490 CLS#4 
1500 READ name* 

1510 IF name*="ende" THEN PRINT#1,suchname*;" ist 
nicht eingetragen":RETURN 
1520 IF name*=suchname* THEN GOSUB 1550:RETURN 
1530 READ wegdamit*: IF wegdamit*="S" THEN 1500 E 
LSE 1530 
1540 * 

1550 * ** Mineral ausgeben ** 

1560 ' 

1570 PRINT#1,TAB(14);name* 

1580 PRINT#1 

1590 PRINT#1,"KristallSysteme:" 

1600 READ k* 

1610 IF k*="K" THEN 1640 

1620 PRINT#1,TAB(4) ; ksys*(VAL(k*)) 

1630 GOTO 1600 
1640 PRINT#1,"Haerte: 

1650 READ hl*,h2* 

1660 IF hl*="7?" THEN PRINT#1,"unbekanntGOTO 16 
90 

1670 IF hl*=h2* THEN PRINT#1,VAL(hl*):GOTO 1690 
1680 PRINT#1,VAL(hl*);VAL(h2*) 

1690 PRINT#1,"Farben:" 

1700 READ f* 

1710 IF f*="F" THEN 1740 

1720 PRINT#1,TAB(4) ; farbe* <VAL(f*)—1) 

1730 GOTO 1700 

1740 PRINT# 1 , "Strich: ** 

1750 READ s* 

1760 IF s*=“S" OR s*="?7" THEN RETURN 
1770 PRINT#1,TAB(4);farbe*(VAL<s*)-1) 

1780 GOTO 1750 
1790 ' 

1800 ' 
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lOOOO * *** Kristal1 Systeme *** 

30080 DATA SCHWEFEL,1,K,1.5,2.5,4,F,2,S 

1OO10 DATA Unbekannt, Rhomblsch»Monaklin»Trigonal ,K 

30090 DATA DIAMANT,4,K,IO,10,15,4,8,5,10,F,2,S 

ubisch 

30100 DATA GRAPHIT,6,K,1,2,10,F,10,S 

10020 DATA Tetragbnal ,Hexagonal ,Triklin,Oktaedrisc 

30110 DATA SILBERGLANZ,4,I,K,2,2.5,10,F,10,S 

h,Amorph,ende 

30120 DATA ARGENIT,4,K,2,2.5,10,F,10,S 

10030 * 

30130 DATA ARKANTHIT,1,K,2,2.5,IO,F,IO,S 

20000 * *** FARBE *** 

30140 DATA BORNIT,4,K,3,3,5,8,F,14,S 

20010 DATA Unbekannt,Weiss,Gruen,Gelb,Rot,Blau,Via 

30150 DATA COVELLIN,6,K,1.5,2,6,5,F,9,IO,S 

1 ett,Braun,Grau 

30160 DATA CHALKOSIN,1,K,2.5,3,9,10,F,10,S 

20020 DATA Schwarz,Silberweiss,Goldgelb,Kupferrot, 

30170 DATA KUPFERGLANZ,1,K,2.5,3,9,10,F,10,S 

Hell grau,Färblos,ende 

30180 DATA SPHALERIT,4,K,3.5,4,4,8,10,F,8,4,2,S 

20030 * 

30190 DATA ZINKBLENDE,4,K,3.5,4,4,8,10,F,8,4,2,S 

30000 * *** Minerale *** 

30200 DATA KUPFERKIES,5,K,3.5,4,12,F,3,10,S 

30010 DATA GOLD,4,K,2.5,3,12,F, 12,S 

30210 DATA CHALKOPYRIT,5,K,3.5,4,12,F,3,10,S 

30020 DATA SILBER,4,K,2.5,3,11,F,11,S 

30220 DATA WURTZIT,6,K,3.5,4,8,IO,F,8,S 

30030 DATA KUPFER,4,K,7?,??,13,F,13,S 

30230 DATA BLEIGLANZ,4,K,2.5,2.5,9,F,9,S 

30040 DATA EISEN,4,K,4.3,4.7,9,10,F,S 

30240 DATA GALENIT,4,K,2.5,2.5,9,F,9,S 

30050 DATA ARSEN,3,K,??,??,14,9,F,14,S 

30250 DATA MAGNETKIES,6,K,3.5,4.5,4,5,,F,9,10,S 

30060 DATA ANTIMON,3,K,3,3.5,14,F,9,S 

30260 DATA PYRRHOTIN,6,K,3.5,4.5,4,5,,F,9,10,S 

30070 DATA WISMUT,3,K,2,2.5,11,F,11,S 




Wußten Sie schon, daß... 


. bei PRINT CHR$ (7) ein Ton er¬ 
klingt? 

. mit der Schleife: For 1 = 0 TO 
31:PRINT CHR$(1)CHR$(I):NEXT I 
auch die Systemsteuerzeichen 
sichtbar werden? 

. , mit PRINT CHR$(19) der Bild- 
Ischirm oberhalb des CURSORS 
Igelöscht wird? Und mit PRINT 
CHR$(20) löschen wir bis in die un¬ 
tere rechte Ecke? Wichtig ist hier¬ 
bei die aktuelle Cursorposition. 

. . die Cursorsteuerung mit Print 
CHR$(8) oder PRINT „CCTRL- 
iH>“ links, PRINT CHR$(9) oder 
PRINT ,,<CTRL-I>" rechts, PRINT 
CHR$(10) oder PRINT „<CTRL- 
J>“ unten, PRINT CHR$(11) oder 
PRINT ,,<CTRL-K>" oben ist? 

. CLR/HOME bzw. CLS = PRINT 
CHR$(12) ist? 



nu 

i;; 'i:| 




Schneider Computer-Stalion 
Ergonomisch konzipierter Arbeitstisch 
für den »CPC<- mit eingebauter 
5f ach-Steckdose 


... mit PRINT CHR$(24) ode* 
PRINT ,,<CTRL-X>" die REVERS 
Darstellung erreicht wird? 

... mit PRINT CHR$(30) oder PRINT 
„>CTRL- >'* ein Cursor-Homd 
ausgeführt wird? 

Hier noch einmal die Gesamt 
Übersicht zum Ausschneiden und 
Sammeln: 

CHR$ (1) macht Steuerzeichen icj 
For Next Schleife sichtbar (0-32). 
OHRS (7) Bell; es ertönt ein Piepton 
CHR$ (8) Cursor links, CHR$ (9J 
Cursor rechts, CHR$ (10) Cursor 
hinunter, CHR$ (11) Cursor hinauf, 
CHR$ (12) CLEAR/HOME; ent¬ 
spricht CLS CHR$ (19) Löschen vod 
Anfang bis Cursor, CHR$ (20) Lö¬ 
schen von Cursor bis Ende, CHRP;' 
(30) Home-Pos.; Cursor auf Bild- 
schirmanfang. 


















Utility 


148 


Schneider spezial 


NOCH 

BESSERE 

DRUCKER¬ 

STEUERUNG 



Unser Leser Heinz Wienhoven 
hat sich die Arbeit gemacht, das 
Textverarbeitungsprogramm mit 
einer erheblich verbesserten 
Druckersteuerungsroutine zu ver¬ 
sehen. Damit ist es nun möglich, 
mitten im Text Steuerzeichen für 
den Drucker zu plazieren, wo¬ 
durch dann Textausschnitte unter¬ 
strichen, hervorgehoben usw. wer¬ 
den können. Um diese Verbesse¬ 
rungen in Ihr Programm einbauen 
zu können, müssen Sie das ur¬ 
sprüngliche Programm laden und 


Erläuterungen und 
Steuercodes 


Das Programm wurde auf den 
Drucker NLQ 401 umgestellt. Des¬ 
weiteren ist es nun möglich, einzel¬ 
ne Worte oder Textpassagen im 
Ausdruck hervorzuheben. 

Das Formatieren des Textes 
über CTRL + F sollte durchgeführt 
werden, bevor die unten erläuter- 


Der Ausdruck geht natürlich 
auch ohne Schriftartwechsel, egal 
ob REMARKs gesetzt wurden oder 
nicht. Die Anzahl der REMARKs 
entspricht der Anzahl der max. ge¬ 
wählten Zeilen. 

Desweiteren besteht die Mög¬ 
lichkeit, den Zeilenabstand in 1/72 
Zoll einzustellen. Die Anzahl der 
Zeilen je DIN A4-Seite wird in Ab¬ 
hängigkeit des Zeilenabstandes 
errechnet. 

Die Zeilenlänge ergibt sich aus 
der gewählten Schriftart. 



die neuen Zeilen dazutippen. Da 
diese Erweiterungen Speicher¬ 
platz benötigen, war es notwendig, 
die maximal schreibbare Zeilen¬ 
zahl auf 180 zu begrenzen. Mit dem 
Programm Optimizer ist es je¬ 
doch möglich, sämtliche Kommen¬ 
tare zu entfernen und alle Varia¬ 
blennamen zu kürzen, so dass 
dann wieder mehr Speicherplatz 
für Text zur Verfügung steht. 


ten REMARKs gesetzt werden. 

Im Druckmenü kommt man über 
-H- zur Hervorhebung der Texte. 
Vorher muß jedoch im Text überall 
dort, wo die Schriftart umgeschal¬ 
tet werden soll, ein REMARK, 1 
(SHIFT + 7), gesetzt sein. Im Aus¬ 
druck wird das REMARK durch 
ein BLANC ersetzt. Die REMARKs 
und die Steuerzeichen werden 
nicht mit abgespeichert. 


Weitere Steuercodes im Pro¬ 
gramm erreichbar über CTRL + H. 

Um das Programm in der neuen 
Version 2.1 auf den Drucker Epson 
FX80 oder FX100 anzupassen, 
müssen nachfolgende Änderun¬ 
gen vorgenommen werden: 

Die anderen Schriftarten wer¬ 
den über die gleichen Steuerzei¬ 
chen gewählt wie beim NLQ 401. 
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3280 

PRINT CHRS(i1 ); M N S 

■ 

M ;CHR$(il)Kursivschrift"<a> 

3300 

PRINT CHR$(i3)5" E : 

" ;chr$<i3>Elite"<a> 

3430 

PRINT #8,CHR$<27>;"4 

" ; 2 11=24 -.GOTO 3260' Kurs! vsch . <a> 

3450 

PRINT #8, CHR*(27) ;"M 

" ; : 13=24 ;GDTO 3260' Elite<a> 

3511 

IF i1=24 THEN PRINT 

#8,CHR* (27) ; n 5 , ‘ ; :il=0' Loeschen Kurs.<a> 

3513 

IF l 3=24 THEN PRINT 
Elite<a> 

#8 ,CHR'* (27) ; "P" ; :i3=0' Loeschen<a> 


1 REM ***** Version 2.1 ********* 

3430 PRINT »8,CHR*(27);"I";CHR*(3) ; : i 1=24:GOTO 32 

*** 

60'-NLQ 

2 REM ***** (c) Thomas Barndt S« Frank Thielen 

3440 PRINT 48,CHR*(15>;:i2=24:druckbreite=110:GOT 

*** 

0 3260'-Schmal sch. 

3 REM ***** ******************** 

3450 PRINT #8,CHR*(27);"x";CHR*(0) ; :i3—24:GOTO 32 

*** 

60'-Entwurf sch. 

4 REM ***** ********************** 

3460 PRINT 48,CHR*(27);:i4=24:GOTO 3260'-Fe 

*** 

ttdruck- 


3470 PRINT #8,CHR*(27);"W“;CHR*(1) ; : i5=24:druckbr 

*** 

eite—40:GOTO 3260'-Breitsch. 


3480 PRINT 48,CHR*(27);"S";CHR*(0);CHR*(15);:i6—2 

380 IF maxze>l80 THEN PRINT:PRINT "Dokument kann 

4:abst=6:GOTO 3424'—Kleinsch. 

max. 180 Zeilen lang sein":GOTO 350 

3490 PRINT 48,CHR*(12);:GOTO 3260 

395 DIM dnr(maxze),tcode(10) 

3500 PRINT 48,CHR*(10);:GOTO 3260'-Zeilenvorsch 

400 FQR i=0 TO maxze:text(i)“STRING*(80," "):dnr 

. 

<i> *10:NEXT 

3510 ' *** Drucker Initialisier 

410 FOR i-O TO 9:stack(i)-STRING*<80," "):NEXT 

en **** 

411 tcode(O)=CHR*(27)+ +CHR*(1):tcode(1> =CHR*( 

3511 IF i1=24 THEN PRINT 48,CHR*(27);"I";CHR*(1); 

27) " +CHR* (0) 

:il-0' - Loeschen NLQ 

412 tcode(2)=CHR* (27) + "G" : tcode (3) -CHR* (27) ♦•'H" 

3512 IF i2=24 THEN PRINT 48,CHR*(18);:i2=0'- Lo 

413 tcode(4)=CHR*(27)+"S“+CHR*(0):tcode(5)-CHR*( 

eschen Schmal 

27)+"T" 

3513 IF i3=24 THEN i3=0‘ - Loeschen Entwurf 

414 tcode(6>=CHR*(27)+"S"+CHR*(1): tcode(7)-CHR* ( 

3514 IF i4—24 THEN PRINT 48,CHR*(27);”F";:i4-0* - 

27)+"T" 

— Loeschen Fett 

415 tcode <8)=CHR*(27)+"W ,, +CHR*(1> : tcode (9) -CHR* ( 

3515 IF i5=24 THEN PRINT 48,CHR*(27) ; "W";CHR*(0); 

27)+"W"+CHR*(0) 

:i5=0'- Loeschen Breit 

416 tcode(10)="" 

3516 IF i6=24 THEN PRINT 48,CHR*(27);"T"; :i6=0'— 

3220 'Diese Zeile loeschen 

- Loeschen Hoch 

3230 'Diese Zeile loeschen 

3517 PRINT 48,CHR*(27);"x";CHR*(0) ; ’- Draftmode 

3240 'Diese Zeile loeschen 

3518 druckbreite=80:abst=12:G0T0 3260 

3245 abst=12:druckbreite=80 

3520 RETURN 

3250 'Diese Zeile loeschen 

3525 GOSUB 5000:GOTO 3260 

3280 PRINT CHR*(il>;“ N : ";CHR*(i 1) ; *• Schoenschri 

3530 'Diese Zeile loeschen 

ft (NLQ)" 

3535 WIDTH druckbreite 

3290 PRINT CHR*(i2);" S :";CHR*(i2);" Schmal sehri 

3540 CLS 

ft" 

3550 druckhoehe=INT(720/abst)'DIN A4 hat 720/72 Z 

3300 PRINT CHR*(i3);" E :":CHR*(i3>;" Entwurfschr 

oll 

if t“ 

3560 'Diese Zeile loeschen 

3310 PRINT CHR*<i4);" F :";CHR*<i4);“ Fettdruck" 

3570 'Diese Zeile loeschen 

3320 PRINT CHR*(i5);" B :";CHR*(i5);" Breitschrif 

3580 INPUT "Anzahl der Ausdrucke: ",anzk 

t (max. 40 Zeichen/Zeile)" 

3590 CLSiLOCATE 5,10:PRINT "Ausdruck abbrechen » 

3330 PRINT CHR*(i6>;" K :";CHR* (i6);" Kleinschrif 

> A" 

t" 

3600 FOR j = l TO anzk 

3340 PRINT ” Ä : Seitenvorschub" 

3605 asz=0 

3350 PRINT " - : Zeilenvorschub" 

3610 FOR i=l TO laenge 

3355 PRINT " Z : Zeilenvorschub einstellen. Einst 

3615 ver-UPPER*(INKEY*) 

ellung: ";abst;"/72 Zoll" 

3616 IF ver—"A” THEN i-laenge:j-anzk:PRINT "D 

3360 PRINT " I : Initialisieren" 

ruck abgebrochen":GOTO 3670 

3365 PRINT "Hs Hervorheben einzelner Worte" 

3621 p=l 

3370 PRINT " R : Menue" 

3622 WHILE p<LEN(text(i)) 

3380 PRINT " P s ";CHR*(24);" DRUCKEN ";CHR*(24> 

3623 r=INSTR(p,text(i),"'") 

3390 ts=UPPER*(INKEY*):IF INSTR(" NSEFBK—ZIHRP", 

3624 ON SGN(r—1)+2 GOTO 3625,3626,3627 

ts)<2 THEN 3390 

3625 r=LEN(text(i)):tdru—tdru+MID*(text(i) , 

3400 CLS 

p,r-p):p-r:GOTO 3628 

3410 PRINT "Der Drucker ist nicht in Ordnung !" 

3626 asz-asz+1:tdru-“ "-*-tcode(dnr (a«z)) :p-2 

3420 ON INSTR ( "NSEFBK' 1 *—ZIHRP" ,ts) GOTO 3430,3440, 

:GOTO 3628 

3450,3460,3470,3480,3490,3500,3422,3510,3525 

3627 asz=asz+l:tdru—tdru+MID*(text(i),p,r—p 

,3520,3530 

M +tcode(dnr(asz)) : p-r + 1 

3422 CLS:PRINT:PRINT:PRINT "Der Zeilenabstand wir 

362B WEND 

d in x/72 Zoll eingestellt. Die Normaleinste 

3629 PRINT 48,LEFT*(tdru+STRING*(80,32),druck 

llung ist 12/72 Zoll. Zeilenabstand 

breite);:tdru-"" 

(1-85): 

3630 IF i MOD druckhoehe>0 OR i—0 OR i-laenge 

3423 INPUT "";abst:IF abst<1 OR abst>85 THEN abst 

THEN 3670 

-12 

3640 IF 5—"A" THEN PRINT 48,CHR*(12)j:GOTO 36 

3424 PRINT 48,CHR*(27);"A“;CHR*(abst); CHR*(27);"2 

70 


3650 PRINT "Naechstes Blatt vorbereiton. Weit 

3425 GOTO 3260 

er mit -ENTER-“:CALL &BB06 
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3660 CLS 

3670 NEXT i 

3600 IF j*anzk THEN PRINT #8:GOTO 3730 

3690 IF 5="A" THEN PRINT #8,CHR*<12);:GOTO 3730 

3700 PRINT #8 

3710 IF j< anzk THEN PRINT "Naechste Blatt vorbe 
reiten. Weiter mit -ENTER- 11 1 CALL &BB06 
3720 CLS 
3730 NEXT j 
3740 GOTO 3260 
3750 ' 

5000 ' *** Druckarten einstelle 

n **** 

5005 CLS 

5010 IF i l+i2+i3+i4-*-i5+i6"0 THEN PRINT "Zuerst Sc 
hriftart wÄhlen!“:FOR i*l TO 2000:NEXT i:GOT 
O 5250 

5020 CLS:CLS #2 
5030 PRINT #2 

5040 PRINT #2," mögliche Hervorhebungen:" 

5045 PRINT 1*2 

5050 PRINT #2," Ein Aus" 

5060 IF i6< >24 THEN PRINT #2," Unterstrei Chen -> 

O 1" 

5070 IF i 1024 AND i6<>24 THEN PRINT #2,“ Doppeld 
ruck -> 2 3" 

5080 IF i 1024 AND i6<>24 THEN PRINT #2," Hochsch 
rift -> 4 5" 


5090 IF i1< >24 AND i6<>24 THEN PRINT #2,“ Indexsc 
hri-ft -> 6 7" 

5100 IF i1< >24 AND i5<>24 THEN PRINT #2," Breitsc 
hrift -> 8 9" 

5110 asz=0:CLS #1 
5120 FOR i=*l TO laenge 

5125 LOCATE #1,10,1:PRINT #l,"Ich untersuche Ze 
ile i j 

5130 FOR j-l TO 80 

5140 IF MID»(text(i>,j t l)<>“'" THEN 5230 

5150 asz-asz+1:IF asz=maxze-2 THEN PRINT #1," 

Es koennen nach zwei Codes definiert wer 
den "; 

5160 LOCATE j,5:PRINT CHR»(241) 

5170 LOCATE 1,6:PRINT text(i); 

5175 PRINT:PRINT "Eingestellt : ";STR»(dnr<as 

z) ) 

5180 PRINT:PRINT "Druckartnr. : INPUT "",d 

nr(asz):IF dnr(asz)<0 OR dnr(asz>>9 THEN 
dnr <asz)"10 

5200 LOCATE j,5:PRINT " PRINT:PRINT 

5210 PRINT "Eingestellt : PRINT:PRINT 

"Druckartnr. : 

5220 PRINT "Code Nr. "jaszj" - "jdnr(asz) 

5230 NEXT j 
5240 NEXT i 
5250 RETURN 
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Mit Banner kann man ganz leicht 
Spruchbänder oder eine neue Ta¬ 
pete für’s Wohnzimmer hersteilen. 
Man braucht nur einzugeben, was 
man gedruckt haben möchte, für 
genug Papier im Drucker zu sor¬ 
gen, die Buchstabenhöhe und — 
breite zu bestimmen, und schon 
quillt der Text aus dem Drucker, 
wenn man will, 20 Meter lang. 
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Hardcopies 


Hlioft GENA3.1 Aueibler. Page 1. 


Phi 1 irrorii 00 


AOOO 

AOOO 

00 

10 | Lifting Nr. 1 

20 | 

30 org liOOO 

«0 , 

50 addi nop 

|x<dd 

A001 

0000 

60 | 

70 bufferi dein 0 

I Adr tu» drt 440-fiyti Puffers 

AOOJ 

00 

B0 , 

90 colour i nop 

1 Anzihl dir Farben 

A004 

00 

100 | 

110 hlghi nop 

1 Anzahl Punkte horizontal 

AOOS 

00 

170 | 

130 pointfi nop 

|Mi« oft Nird jeder Punkt gedruckt 

A004 

0000 

MO | 

ISO buff2; dein 0 

1 intern 

AOOS 

0000 

i&O | 

170 pnui: dtfn 0 

(Anzahl der zu druckenden Punkte 

AOOA 

0000 

ieo i 

190 zy2t defa 0 

linteri 

A00C 

0000 

200 | 

210 zu defa 0 

(augenblicklich» k 

AOOE 

0000 

220 zy: dda 0 

(augenblicklich« y 

A010 

00 

230 | 

240 eint: nop 

(Colour intern 

A011 

00 

250 | 

2&0 shifts: nop 

(«nzahl ihifti bisher 

A012 

F5 

270 | 

290 icint: puih af 

(count eint 

A0I3 

ES 

790 push hl 


A0I4 

3AI0A0 

300 ld t,leint) 


A017 

3C 

310 inc i 



Eigentlich kann man für alle, 
die einen Drucker an ihren CPC 
angeschlossen haben, nur ein 
mitleidiges Grinsen übrig haben: 
Was Schneider sich mit der Z-Bit- 
Selbstbau-Schnittstelle gedacht 
haben mag, wird für die meisten 
von uns wohl immer ein Rätsel 
bleiben. Solange es nur um Text 
geht, funktioniert das ganze ja 
auch noch halbwegs, aber bei 
Hardcopys: Oh je! 

Was allerdings bei Hardcopys 
produziert wird, dreht einem dann 
doch ganz den Magen um: Da 
wird jede Zeile 2 mal gedruckt, 
weil jeweils nur 4 Nadeln anschla¬ 
gen (logische Begründung: die 8te 
funktioniert ja nicht?!?), und daß 
(auch wegen des fehlenden 7. Bits) 
die letzte Punktreihe vom Bild¬ 
schirm fehlt, ist auch allgemein üb¬ 
lich (aber darüber lasse ich mich 
lieber nicht aus, weil ich so etwas 
auch schon selbst gemacht habe). 


Es geht auch anders 


Daß es auch anders geht, möch¬ 
te ich zeigen. Das Kernstück die¬ 
ses Versuches stellt Programm Li- 
sting Nr. 1 dar (die assemblierte 
Fassung davon wird von den ande¬ 
ren Programmen nachgeladen). 
Dabei handelt es sich um das Un¬ 
terprogramm, das die notwendi¬ 
gen Druckdaten aus dem Bild¬ 
schirminhalt erzeugt. 

'Nichts Besonderes’, werden Sie 
nun vielleicht sagen, aber es gibt 
doch etwas Besonderes: Das Pro¬ 
gramm ist nämlich extrem flexibel 
und läßt sich leicht in Ihre eigenen 
Programme einbinden. Damit kön¬ 
nen Sie leicht beliebige Grafiken, 
nicht nur Hardcopys, erzeugen, 
weil Sie jeden beliebigen Teil des 
Bildschirms 'in Daten um wandeln’ 
können. Das eigentliche Unterpro¬ 
gramm steht dabei in Zeile 840 
(Adresse + A07B). Diese Subrou¬ 
tine erzeugt in einem Buffer aus 
dem Inhalt des Bildschirms, der 
an der angegebenen x- und y- 
Koordinate steht, die Bytes im rich¬ 
tigen Format zum An-den-Drucker- 
senden. 


Das Ergebnis hängt stark von 
den Variablen am Anfang des Pro¬ 
grammes ab, die ich nun im einzel¬ 
nen besprechen möchte. Ganz am 
Anfang steht die Variable xadd. 

Ihr Wert bestimmt, um welchen 
Faktor X beim Untersuchen des 
Bildschirms erhöht wird. Das ist 
sinnvoll, weil ja mehrere horizonta¬ 
le Pixel in Mode 1 und 0 zusam¬ 
mengefasst sind. 

Trotzdem kann XADD immer 1 
bleiben, so daß die Hardcopy 
auch immer aus derselben Anzahl 
Punkten (und somit derselben 
Breite) besteht. Dann wird einfach 
ein- und derselbe Pixel mehrmals 
abgefragt, und der 'Papier-Pixel' 
wird dementsprechend breiter. 
Das Wort an Adresse +A001 be¬ 
stimmt, an welche Adresse die Da¬ 
ten geschrieben werden sollen. 
An dieser Stelle müssen (je nach 
gewähltem XADD) maximal 640 
Bytes Platz haben. Als nächstes 
folgt die Variable colour. Sie 
bestimmt, wieviele Farben mo¬ 


mentan auf dem Bildschirm darge¬ 
stellt werden können, und muß je 
nach MODE gesetzt werden. 

Sehr wichtig ist die nächste Va¬ 
riable, high. Sie bestimmt, wie 
hoch ein einzelner Pixel auf dem 
Papier sein soll, und der maximale 
zulässige Wert ist 7. Damit ist es 
möglich (siehe Programm Nr.4), 
das Bild so auszudehnen, daß die 


Beliebige Höhe 


Verzerrungen im Vergleich zum 
Original-Bildschirm möglichst ge¬ 
ring werden. BUFF2 ist für uns 
nicht weiter interessant, diese Va¬ 
riable wird intern benutzt. Interes¬ 
santer ist pnum, mit dem wir be¬ 
stimmen können, wieviele Punkte 
horizontal überhaupt abgefragt 
werden sollen. Damit ist es mög¬ 
lich, nur einen Teil des Bildes zu 
bearbeiten. Schließlich folgen 
noch ZX und ZY. Hierher müssen 
die Startkoordinaten für die Bild- 
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schirmabtastung geschrieben wer¬ 
den. 


Komplette Hardcopy 


Um also eine komplette Hardco¬ 
py auf den Bildschirm zu bekom¬ 
men, ist eine Schleife notwendig, 
die die Y-Koordinaten von 399 auf 0 
herunterzählt, und zwar in Schrit¬ 
ten von 14(!). 14 deshalb, weil ja 
vertikal immer zwei Pixel zusam¬ 
mengesetzt sind. Bei jedem Schlei¬ 
fendurchlauf müssen die notwen¬ 
digen Parameter initialisiert wer¬ 
den, und DATA muß aufgerufen 
werden. Die dann im Buffer ste¬ 
henden Daten können an den 
Drucker gesendet werden. Dieser 
mußte natürlich vorher auf einen 
Papiervorschub von 7/72 (also der 
Höhe von 7 Punkten) gesetzt wer¬ 
den, damit zwischen den einzel¬ 
nen Zeilen kein Leerraum entsteht. 


Kein 

Leerraum 


Ein Programm, das genau das 
tut, ist Nr. 2. Aber das wäre wohl 
kaum der Rede wert, wenn das al¬ 
les wäre. Denn dieses Programm 
hat natürlich noch die altbekannte 
Macke, die Punktreihe ganz rechts 
außen zu verschlucken, da wir nur 
die Zahl 639 und nicht 640 über 
den 7-Bit-Port schicken können. Ei¬ 
ne einfache Lösung dafür ist Pro¬ 
gramm .Nr. 3: Jede Zeile wird in 
zwei Teilzeilen aufgespalten. Na¬ 
türlich darf auch die Punktzahl der 
beiden Teilzeilen keine 8-Bit-Zahl 
enthalten, sonst hätten wir dassel¬ 
be Problem wie in Listing Nr.2 
(achten Sie übrigens darauf, daß 
Sie eine assemblierte Version von 
Nr.l auf Kassette/Diskette stehen 
haben, weil die Hardcopy-Pro¬ 
gramme sie nachladen). 


Programm Nr.4 


Das letzte Programm, Nr. 4, zeigt 
eine noch bessere Ausnutzung der 
Möglichkeiten des MC-Teils. Das 
Bild wird auf die volle Blattbreite 


A01B 

3210A0 

320 

ld 

(eint)*• 


Aoie 

2I03AO 

330 

ld 

hl,colour 


«OIE 

IE 

340 

cp 

(hl) 

janzahl (arbtn 

AOIF 

3807 

350 

Jr 

c,«cf 1 


A021 

2805 

360 

Jr 

z,acil 


«023 

3E0I 

370 

ld 

«.1 

{Hintergrund wird nicht gedruckt 

«025 

3210A0 

3B0 

ld 

(cintl.a 


«028 

El 

390 icili 

pcp 

hl 


«02? 

Fl 

400 

pop 

aF 


«02« 

C? 

410 

ret 





420 | 




«028 

E5 

430 epoli 

push hl 

;setzt einen Punkt in C 

A02C 

D5 

440 

push de 


«02D 

CDI2A0 

450 

call adnt 

;zaehle Farben weiter 

«030 

2AOEAO 

460 

Id 

bi, Oy) 

;y-toor 

«033 

ED5B0CA0 

470 

ld 

de,tzz) 

;z-Koor 

«037 

C5 

4B0 

push bc 


A03B 

CDF0EB 

490 

call 

IbbfO 

{Test point 

A03B 

CI 

500 

Pop 

bc 


«03C 

17 

510 

or 

i 


«030 

2809 

520 

Jr 

z,cpoiI 

{Farbe 0 mI rd nie gedruckt 

«03F 

3D 

530 

die 

• 

;colour«co!our-l 

«040 

2110A0 

540 

ld 

hl,eint 


«043 

«6 

550 

and 

(hl) 

{«interne Colour 

«044 

2002 

560 

jr 

nz,opoil 

{drucke nur wenn 0 

«044 

CBC1 

570 

Kt 

0,c 

jsetzte bit 0 In c 

«048 

2111A0 

5B0 opolli 

ld 

hl.shlFts 


«04 B 

34 

590 

inc 

(hl) 


A04C 

Dl 

400 

pop 

dt 


A04D 

El 

610 

pop 

hl 


A04E 

C9 

420 

rtt 





630 | 




A04F 

0E00 

440 genbyti ld 

C|0 

;wert«0 

«051 

3E00 

650 

ld 

*,0 


«053 

3211A0 

660 

Id 

(shiftil.a 


A054 

3A04A0 

670 gcnOi 

ld 

a,(high) 

;hoehe eines punktes (uz 7) 

A059 

47 

6B0 

ld 

M 


A05A 

CB01 

690 gcnli 

rlc 

c 

{schiebe c weiter 

«05C 

C02BAQ 

700 

call opoi 

{schreibe ein bit in c 

A05F 

3A1IA0 

710 

ld 

a, (shiFts) 


«062 

FE07 

720 

CP 

7 


«064 

3002 

730 

Jr 

nc,gtn2 


«066 

10F2 

740 

djnz gcnl 

;high1 punkte 

«068 

2AOEA0 

750 gcn2i 

Id 

hl.lzyl 


A06B 

110100 

760 

ld 

di,i 


A06E 

ED52 

770 

sbc 

hl,dt 


«070 

220EAO 

780 

ld 

(zyl,hl 


«073 

3A11A0 

790 

ld 

a, (shlfts) 


«076 

FE07 

800 

cp 

7 


A07B 

380C 

810 

jr 

c,genO 

{weniger als 7 bits 

«07« 

C9 

820 

rtt 





830 j 




A07B 

2A0BA0 

840 data: 

ld 

hl,(pnutl 

;anz zu konv punkte 

A07E 

ES 

850 

push hl 


«07F 

CI 

860 

pop 

bc 

ganzahl in bc 

«060 

DD2A01AO 

870 

ld 

li, (buFFerl 

{buFFcrpos 

«0B4 

C5 

880 datli 

push bc 

;save count 

A0B5 

2AOEAO 

B90 

ld 

bl,(zy) 

;zy wird von genbyt veraendert 

«080 

E5 

900 

push hl 


«089 

CD4FA0 

910 

call genbyt 

(erzeuge eine byte 

AOBC 

22OAA0 

920 

ld 

(zy2),hl 

{das ist das naechste zy 

A08F 

79 

930 

ld 

».c 

ibyte -> n 

«090 

DD7700 

940 

ld 

(ii),a 

1byte -) buFFer 

«093 

DD23 

950 

inc 

iz 

{naechste bufpos 

«095 

El 

960 

pop 

hl 

;hole altes zy 

«094 

220EA0 

970 

ld 

(zyl.hl 


«099 

2AOORO 

980 

ld 

hl, (add) 

(z-add 

A09C 

ED5B0CA0 

990 

Id 

de, (zi) 

jz-pos 

«OflO 

1? 

1000 

add 

hl,de 


AOflS 

220CAO 

1010 

ld 

Iztl.hl 

|neue z-pos 

A0A4 

CI 

1020 

pop 

bc 

{hole count 

A0A5 

OB 

1030 

die 

bc 


A0A& 

78 

1040 

ld 

*,b 


A0«7 

Bl 

1050 

or 

c 

Itrzeuge naechstes byte 

«OfiS 

20DA 

1060 

Jr 

nz,datl 


AOftfl 

2AOAAO 

1070 

ld 

hl,(zy2) 

{hole naechste zy 

A0AD 

22OEA0 

10B0 

ld 

(zyl,hl 

{schreibe sie 

A0B0 

C9 

1090 

rtt 


{alles getan 



1100 ; 




Pass 2 errors: 

00 




Table isedi 

362 Fro* 

353 
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(jedenfalls fast) ausgedehnt, und 
jeder Pixel wird zwei Pixel tief auf 
dem Papier dargestellt. So ist die 
Verzerrung im Vergleich zum Ori- 
ginalbild minimal, 


10 MEMORY 67FFF 'Llatlng Nr. 2 
20 MODE 2l«-2 

SO PLOT 0,0,liDRAW 639,0iDRAW 639,399iDRAW 0,399iD 
RAU O.OiLOCATE SS,10iPRINT B T E B T I" 

40 LOAD"ln«ldl.bln" * Insldl.bln-Llstlng f*-.l 

SO *dd-6AOOO 

60 buff«r-6A00I 

70 colour-6A003 

BO high-6A004 

90 paint««6AOOS 

1O0 pnuJn-tAOOB 

110 ZX-6AOOC 

120 zy-6A00E 

130 WIDTH 2SS 'CR« unttrdruackan 

140 PRINT 48,CHR*(27)“A“CHR*(7)CHR*(27) "2" | 'Papi« 

rvorachub 

ISO * 

160 FOR y-399 TO O STEP -14 '-(14/ph) 

170 POKE zy,y-(INT(y/236)*236)»POKE zy+1,INT(y/2S6 

> 

IBO POKE zx,OlPOKE xx+1,0 'O 

190 *pok« 6*012,6c9i poki 6*010,233 unterdrückt F* 
rban 

200 ph-1 'Punktho«h«-l 

210 pz*hl-320 * Jeweil* S20 Punkta drucken 

220 IF «-2 TKEN POKE cnlour.l 

230 IF m-1 TKEN POKE colour.3 

240 IF m-0 THEN POKE colour,15 

230 POKE hlgh.ph 

260 POKE pol nt«,1 

270 POKE huf4er,OiPOKE buff er «-1,600 

2B0 POKE pnua,128«POKE pnua+1,2 '640 Punkt« 

290 POKE add,1 
300 ' 

310 CALL 6A07Bi*d-6800O 

320 PRINT •B,CHR*<27>i"L"|CHR»(I27>JCHR*<2> | 

330 ’ 

340 FOR x-O TO 639 

330 PRINT «8,CHRC(PEEK(*d))tiad-«d+l 

360 NEXT k 

370 PRINT MB,*" 

3B0 ' 

390 NEXT y 


Übrigens werden von allen Pro¬ 
grammen auch Farben dargestellt, 
und zwar durch unterschiedliche 
Schraffierungen. Im MC-Teil be¬ 
sorgt das Unterprogramm ACINT 
das Durchzählen der Farben, um 
so die Schraffierungen zu erzeu¬ 
gen. Wenn man keine Farbdarstel- 
lung möchte, sollte man den Aufruf 
von ACINT durch ein +C9 (Op- 


HARDCOPY - 
Problem 

Code RET) an Adresse + A012 un¬ 
terdrücken und den Wert 255 in 
CINT schreiben. Es gibt noch vie¬ 
le Möglichkeiten, wie man Listing 
Nr.l nutzen kann, nicht nur als 
Hardcopy-Unterprogramm, Zum 
Beispiel könnte man Listings in der 
Original- Computerschrift (und so¬ 
mit auch alle Sonderzeichen) aus- 
drucken... aber in dieser Bezie¬ 
hung haben Sie sicher auch genug 
Ideen. 



10 MEMORY 67FFF 'Ll«tlng Nr.3 
20 MODE 2«*-2 

30 PLOT O,O,1iDRAU 639,0iDRAU 639,399iDRAW 0,399iD 
RAW O.OiLOCATE 35,IOiPRINT"T E B T !• 

40 LOAD"in«idl.bin“ '1n«idl.bin-Ll«tlng Nr.l 

SO «dd-6AOOO 

60 buff«r-6A001 

70 CDlour-6A003 

80 high-6A004 

90 polnt«-6A003 

100 pnum-6A008 

110 zx-6AOOC 

120 xy-6AOOE 

130 UIDTH 2S3 'CR« unterdru«ck«n 

140 PRINT 4B,CHR*(27)"A“CHR*(7>CHR«(27)"2-| *P«pl« 

rvor«chub 

130 ' 

160 FOR y-399 TO 0 STEP -14 '-(14/ph) 

170 POKE zy,y—(INT(y/236)4236)iPOKE zy+1,INT(y/256 
> 

IBO POKE zx,0 1 POKE zx + 1,0 p O 

190 ’pak« 6*012,6c9ipok* 6*010,233 unt«rdru«ckt F« 
rb«n 

200 ph-1 'Punktho«he-l 

210 pz«hl-320 ' Jeweils 320 Punkt« druckan 

220 IF m-2 THEN POKE colour,1 

230 IF m-1 THEN POKE colour,3 

240 IF *«0 THEN POKE colour,13 

250 POKE hlgh.ph 

260 POKE points,1 

270 POKE buf f er, Oi POKE buf f eri-l, 680 
280 POKE pnuAt, 1201 POKE pnum+1,2 '640 Punkte 
290 POKE «dd,1 
300 ' 

310 CALL 6A07Bt*d-68000 
320 ' 

330 FOR z-1 TO 2lPRINT «B,CHR*(27)|"L"|CHR*<64>|CH 
R*(l> J 

340 FOR x-O TO 319 

350 PRINT *B,CHR»(PEEK(«d))[i*d-*d+l 
360 NEXT x,z 
370 PRINT «8,■" 

300 ’ 
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10 MEMORY &7FFF 'Listing Nr. 4 
20 MODE 1:m=l 

30 PLOT 0,0,1s DRAW 639,0:DRAW 639,399:DRAW 0,399:D 
RAW 0,0: LOCATE 15,1: PEN 2: PRINT"T E S T ! " 

40 LOAD" insidl.bin" 9 i nsi d 1. bin=Li sti ng Nr.l 

50 add=&AOOO 

60 buffer=JUA001 

70 col our=S<A003 

BO high=&A004 

90 poi nts=$<A005 

100 pnum=&A008 

110 zx=&AOOC 

120 zy=&AOOE 

130 WIDTH 255 'CRs unterdruecken , 

140 PRINT #8, CHR$ (27) "A M CHR$ (7) CHR$ (27) "2 H ; 'Papie 

rvorschub 

150 ' 

160 FOR y=399 TD 0 STEP -(14/2) '2 Punkte hoch!!! 
170 POKE zy, y-(INT(y/256)*256):POKE zy+1,INT(y/256 
) 

ISO POKE zx, O:POKE zx+1,0 '0 

190 ^poke &a012,&c9:poke &a010,255 unterdrueckt Fa 
rben 

200 ph=2 ' P u n kthoehe = 2 

210 pzahl=320 ' jeweils 320 Punkte drucken 

220 IF m=2 THEN POKE colour,l 

230 IF m=l THEN POKE colour,3 

240 IF m=0 THEN POKE colour, 15 

250 POKE high,ph 

260 POKE points, 1 

270 POKE b u-f f er, 0: POKE buf-f er+1, &80 
280 POKE pnum,128:POKE pnum+1,2 '640 Punkte 
290 POKE add,1 
300 ' 

310 CALL &A07B:ad=&8000 
320 ' 

330 PRINT #8, CHR$ (27) "Z"CHR$ (0) CHR$ (10); 'quadrupl 
e density 

340 GQSUB 380 'drucke, und 

350 FOR x =0 TO 639:PRINT #8,CHR$(0) ; :NEXT Quelle 
mit 0' s 

360 PRINT #8,"“:NEXT y: END 
370 7 

380 FOR x=0 TO 639 'sende 1920 Punkte (640*3) 

390 PRINT 4t8, CHR$ CPEEK (ad) ) ; 

400 PRINT #8, CHR$ (PEEK (ad) ) ; 

410 PRINT #8, CHR$ CPEEK (ad)) ; : ad=ad + l 
420 NEXT x:RETURN 
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Der 
Word- 
Processor II 



Dieses Textverarbeitungspro¬ 
gramm ist bis auf die Bildschirm- 
scrollroutinen nur in BASIC ge¬ 
schrieben. Nach dem Start wird als 
erstes nach der Textdarstellung ge¬ 
fragt. Es besteht die Möglichkeit, 
mit schwarzer Schrift auf grünem 
Grund zu schreiben oder umge¬ 
kehrt. Danach fragt das Programm 
nach der maximal einzugebenden 
Zeilenzahl. Es ist möglich, bis zu 230 
Zeilen Text zu schreiben. Schöpft 
man diese Möglichkeit voll aus, so 
geht dies jedoch etwas auf Kosten 
der Geschwindigkeit beim Einfü¬ 
gen oder Löschen von Zeilen. Als 
nächstes erscheint das Hauptme¬ 
nü. Dort kann man zwischen folgen¬ 
den sechs Möglichkeiten wählen: 

— Eingeben bzw. Editieren von 
Text — Löschen eines Textes — 
Ausdrucken eines Textes — Spei¬ 
chern oder Laden von Texten — 
Ein- oder Ausschalten des deut¬ 
schen Zeichensatzes — Beenden 
des Programms. Beim Laden eines 
Textes wird die Cassette zunächst 
auf ein vorhandenes Textfile unter¬ 
sucht. Nach der Anzeige von Text¬ 
name und Textlänge kann man ent¬ 
scheiden, ob geladen oder weiter¬ 
gesucht werden soll. Nun zum 
wichtigsten Punkt, dem Editieren. 
Nach dem Änwählen dieses Menü¬ 
punktes erscheint zunächst der 
Cursor in der linken oberen Bild¬ 
schirmecke, sowie die Statuszeile 
ganz unten. Dort wird die momenta¬ 
ne Zeilen- und Spaltenposition alle 
paar Sekunden angezeigt. Ebenso 
der momentan eingeschaltete Zei¬ 
chensatz. Man kann nun seinen 
Text eingeben. Über CTRL «An¬ 
fangsbuchstabe» erreicht man die 
Ausführung der folgenden Funktio¬ 
nen: — Menü -Zeile anspringen — 
Sichern gelöschter Zeilen — For¬ 
matieren des Textes — Randbreite 
einstellen — Trennen der Zeile — 
Vereinigen von Zeilen — Worte su¬ 
chen — Austauschen von Worten 

— Hilfe (Anzeige der Funktionen). 

Zum Formatieren setzt man den 

Cursor auf die erste Zeile und letzte 
Spalte des zu formatierenden Tex¬ 
tes und betätigt die Tasten CTRL + 
„F“ (Formatiere) gleichzeitig. Nach 
Eingabe der Zeilenanzahl werden 
in diese Zeilen so viele Leerzeichen 
eingesetzt, bis sie rechtsbündig 
mit der Spaltenposition abschlie- 
ßen. 

Das Suchen und Austauschen von 
Worten geschieht ab Cursorposi¬ 
tion abwärts. Beim Trennen von Zei¬ 
len wird die rechte Seite der Zeile, 
einschließlich der Cursorposition, 
zwischen die jetzige und nächste 
Zeile eingefügt, indem man CTRL 


+ „T“ (Trennen) betätigt. Das Ver¬ 
einigen von Zeilen erfolgt dement¬ 
sprechend mit CTRL + „V“. Wenn 
der Platz zu diesen Operationen 
nicht ausreicht .wird dieses in der 
Statuszeile angezeigt und die Ope¬ 
ration nicht durchgeführt. Sollte 
während des Editierens der Cur¬ 
sor einmal für ein paar Sekunden 
verschwinden, so ist dies nicht wei¬ 
ter tragisch. Der Computer führt 
dann eine Sammlung von freiem 
Speicherplatz durch. Dieses tritt je¬ 
doch bei kürzeren Texten sehr sel¬ 
ten auf. Jede gelöschte Zeile wird 
auf einen Stack (Stapel) gelegt und 
kann mit CTRL + ,,S“(Sichern) wie¬ 
der angezeigt werden.Man kann 
auf diese Weise bis zu neun ge¬ 
löschte Zeilen retten. 

Betätigt man die Taste CTRL + 
COPY, so wird die aktuelle Zeile 
ebenfalls auf den Stack gelegt, je¬ 
doch dabei nicht gelöscht. Da¬ 
durch ist es möglich, Zeilen an be¬ 
liebige Textstellen zu kopieren 
oder zu verschieben. 


Das Programm ist an einen EP¬ 
SON Drucker RX-80 angepaßt, des¬ 
sen Steuerzeichen stimmen jedoch 
weitgehend mit den meisten ande¬ 
ren Druckern überein. Beim Aus¬ 
drucken kann man die wichtigsten 
Schriftarten des Druckers auswäh¬ 
len. 

Um ein sicheres Funktionieren zu 
gewährleisten, sollten Sie vor je¬ 
dem Laden des Programms den 
Rechner zurücksetzen. 

Dieses Programm wurde mit äu¬ 
ßerster Sorgfalt erstellt, jedoch 
können Fehler nie ganz ausge¬ 
schlossen werden. Für eventuell 
entstehende Schäden oder Ver¬ 
luste kann keine Haftung über¬ 
nommen werden. 

Nachfolgend noch einige Funk¬ 
tionen von Wordprocessor. Bitte 
beachten Sie diese ebenso, wie 
die während des Programmlaufes 
erscheinenden Anweisungen, da¬ 
mit Ihr Text nicht verloren geht! 

FTCP + THBCS 
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1 REM Frank Thielen 

2 REM & 

3 REM Thomas Barndt 

4 REM 

5 REM 

10 MODE 2 

20 DEFSTR s-w.*DEFINT a-r,x-z 
30 KEY DEF 6B,1,9,10 
40 KEY DEF 9,1,224,223,222 
50 KEY DEF 1B,1 
60 scrollup="" 

70 READ byte 
80 WHILE byte>=0 

90 scrollup=scrollup+CHR*(byte) 
lOO READ byte 
110 WEND 
120 szei="engl." 

130 INK 0,0:INK 1,26 
140 CLS 

150 LOCATE 34,4 

160 PRINT 

170 LOCATE 28,7 

180 PRINT “Copyright FTCP + THBCS 1985“ 

190 LOCATE 1,10 

200 PRINT “Textdarstellung schwarz auf gruenem G 
rund <S) oder gruen auf schwarzem Grund (G)" 
210 * 

220 ' *** Farben *** 

230 ‘ 

240 s=UPPER*(INKEY*) 

250 IF INSTR(" SG",UPPER*(s>)<2 THEN 240 
260 IF s="S" THEN BORDER 23:PEN O:PAPER 1:PEN #1 
,1:PAPER #1,0:PEN #2,1:PAPER #2,0 ELSE BORDE 
R 14:PEN 1:PAPER 0:PEN #1,0:PAPER #1,1::PEN 
#2,0:PAPER #2,1:MID*(scrol1up,4,1)=CHR*(O) 
270 DATA 8*06,&01 ,&3E, 255, &21 ,0,0,&1 1 ,23,79, &CD, Sc 
50 , &BC , &C9 , — 1 
280 scrolldown=scrol1up 
290 MID*(scrol1 down,2,1)=CHR*(O) 

300 scrol1insert=scrol1 down:scrol1delete=scrol1u 
P 

310 CLS 

320 WINDOW #1,1,80,25,25 ' Statuszeile 

330 WINDOW #2,44,77,8,21 ' Funktionsmenue 

340 CLS #1 
350 PRINT 

360 INPUT "Maximale Zeilenzahl ";maxze 
370 IF maxze<24 THEN PRINT:PRINT "Dokument muss 
1aenger als 23 Zeilen sein":GOTO 350 
380 IF maxze>230 THEN PRINT:PRINT "Dokument darf 
nicht 1aenger als 230 Zeilen sein":GOTO 350 
390 DIM text(maxze),stack(9) ' Textspeicher + St 

ack fuer geloeschte Zeilen 
400 FOR i=0 TO maxze:text(i>«STRING*<80,“ "):NEX 
T 

410 FOR i=0 TO 9:stack<i)«STRING*<80," "):NEXT 
420 GOSUB 510 ' Menue 

430 ON INSTR("ELACBD",s) GOSUB 680,3010,3110,376 
0,4280,4630 
440 GOTO 420 
450 * 

460 *** Status in Statuszeile (Window #1) a 

usgeben *** 

470 * 

480 LOCATE #1,1,1:PRINT#1,USING " Z:### S:## 

Hilfe : CTRL 'H' 

Zeichensatz: ;ize,isp,szei; 

490 RETURN 

500 ' **************************** 

510 * ** Hauptmenue ** 

520 ' **************************** 

530 CLS 
540 CLS#1 

550 PRINT"E: Eingabe oder Edieren von Text" 

560 PRINT”L: Loeschen des Textes“ 

570 PRINT"A: Ausdrucken des Textes“ 

580 PRINT"C: Speichern oder Laden von Texten“ 

590 PRINT"D: Deutscher Zeichensatz" 


600 PRINT"B: Beenden des Programms" 

610 PRINT 

620 PRINT“ Bitte waehlen Siel" 

630 s=UPPER*(INKEY*):IF s="“ THEN 630 
640 IF INSTR("ELACBD“,s)<1 THEN 630 
650 CLS:CLS#1 
660 RETURN 
670 ‘ 

680 *** Eingabe bzw. Edieren *** 

690 ' 

700 EVERY 250 GOSUB 460 

710 ize=l:isp=l+rand ' Zeile und Spalte des C 
ursors im Textarray 

720 iba=l ' Bildschirmanfang im Te 

xtarray (vertikal) 

730 icu=l ‘ Cursorposition auf dem 

Bildschirm (vertikal) 

740 GOSUB 2920 
750 EI 

760 LOCATE isp,icu 

770 PRINT CHR*(24>;MID*(text(ize),isp,1); CHR*(24 
);CHR*(B); 

780 IF INKEY (23) 0128 THEN s=INK£Y*: IF s="" THEN 
780 ELSE 810 

790 s=INKEY*:IF s="" THEN 790 ELSE IF ASC(s)>31 
THEN 810 

800 u=CHR*(ASC(s)+96):GOTO 1360 

810 IF s<CHR*(32) OR s>CHR*<126) THEN PRINT MID* 
(text(ize),isp,l);:G0T0 830 
820 PRINT s;:MID*(text(ize),isp,1)=s:isp=isp+1:G 
OTO 2800 ' Druckbares Zeichen 

830 IF s=CHR*(13) THEN isp=l+rand:ize=ize+l:icu= 
icu+1:GOTO 2800 ' ENTER 
840 IF s=CHR*(242) THEN isp=isp—1:GOTO 2800 
‘ Cursor links 

850 IF s*CHR*(243) THEN isp=isp+1:GOTO 2800 
‘ Cursor rechts 

860 IF s=CHR*(240) THEN ize-ize-1:icu=icu-1:GOTO 
2800 ' Cursor aufwaerts 

870 IF s=CHR*(241) THEN ize=ize+l:icu=icu+1:GOTO 
2800 ' Cursor abwaerts 

880 IF s=CHR*(224) THEN GOTO 710 
' COPY (HOME) 

B90 IF s=CHR*(223) THEN iba=maxze-23:icu=24:ize= 
maxze: GOSUB 2920: GOTO 760 ' SHIFT + COPY (Te 
xtende) 

900 IF s=CHR*(9) THEN isp=isp-isp MOD 10+11:GOTO 

2800 • TAB 

910 IF s=CHR*(10) THEN isp=isp-isp MOD 10-9:GOTO 
2800 ' SHIFT + TAB 

920 IF S< >CHR*(16) AND S<>CHR*(246) THEN 990 
930 * 

940 ' *** CLR oder SHIFT+Cursor links *** 

950 MID*(text(ize),1)=LEFT*(text(ize),isp-l)+MID 
*(text(ize),isp+ 1 )+" " 

960 LOCATE l,icu:PRINT text(ize>;:GOTO 2800 
970 * 

980 ' *** DEL *** 

990 IF sOCHRtl 127) THEN 1050 
1000 IF isp=l THEN PRINT#1,TAB(23);CHR*(7);"*** Z 
eilenanfang erreicht ***":G0T0 760 
1010 MID*(text(ize),l)=LEFT*(text(ize),isp-2)+MID 
*(text(ize),isp)+" " 

1020 LOCATE l,icu:PRINT text<ize);:isp=isp-l:GOTO 
2000 

1030 ' 

1040 ' *** SHIFT+Cursor rechts: Zeichen einfu 

egen *** 

1050 IF «< >CHR*(247) THEN 1110 

1060 MID#(text<ize),l)=LEFT#(text(ize),isp-l>+" “ 

+M1D*(t ex t( i z e),isp > 

1070 LOCATE l,icu:PRINT text<ize)GOTO 2800 
1080 ' 

1090 ' *** SHIFT+Cursor oben: Zeile loeschen 

*** 

1100 ' *** CTRL + COPY: Zeile in Puffer einl 

esen 

1110 IF ABS(ASC(s)—233)< >11 THEN 1180 
1120 MID#(stack(ipa),1)—text(ize):ipa°ipo+l:IF ip 
a>9 THEN ipo=9:F0R i=0 TO B:MID*(stack(i>,1) 
=stack(i+l):NEXT i 
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1130 

1140 


1150 


1160 
1170 

11 BO 
1190 
1200 


1210 


1220 


1230 

1240 

1250 

1260 

1270 

12B0 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1300 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

14B0 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 


1660 

1670 

16B0 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 


1780 

1790 

1800 


IF s=CHR*<222) THEN ize=ize+1:icu=icu+l:GOTO 
2800 

FOR i=ize TO maxze-1:MID*(text(i),1)=text<i+ 
1):NEXT i:MID*(text(maxze),1>=STRING*(SO," " 
) 

MID*(scrol1delete,6,1)=CHR*<icu-1>: CALL PEEK 
(§scrolldelete+1)+PEEK <@scral1delete+21*256s 
LOCATE 1,24:PRINT text<iba+23);:GOTO 760 

' *** SHIFT+Cursor unten: Zeile einlueg 

en *** 

IF s< >CHR* < 245) THEN 1250 
u*=“ " 

IF text(maxze)OSTRING*(80," ") THEN PRINT#1 
,TAB<25);CHR*(7>;“*** Textspeicher voll ***“ 
:GOTO 760 

FOR i=maxze TO ize STEP -i:MID*(text(i),1)=t 
ext(i-l):N£XT i:MID*(text(ize),1)»STRING*<80 
“> 

M ID* tscrall insert ,6, l)=CHR*<icu-1) : CALL PEEK 
((slscral 1 insert+1) +PEEK (@scrol 1 insert+2) *256: 
IF u-"s" THEN 2360 ELSE 760 

' *** CTRL + Cursor rechts *** 

IF s< >CHR*(251) THEN 1300 

MID*<text(ize),isp)»SPACE*<B0-isp +1) 

LOCATE 1,icu:PRINT text(ize);:GOTO 760 

• *** CTRL + Cursor links *** 

IF s< >CHR*(250) THEN 1340 
MID*(text(ize) ,1,isp)»SPACE* < i sp) 

LOCATE 1,icu:PRINT text(ize>GOTO 760 

GOTO 760 


*** Funktionen *** 


DI 

IF u< >"h" THEN 1580 
CLS#2:GOSUB 460 
PRINT#2 


Ueber 'CTRL' erreichbar:" 


PRINT#2," 

PRINT#2 
PRINT#2,“ 

PRINT#2," Z: 

PRINT#2," S: 

PRINT#2, 

PRINT#2, 

PRINT#2, 

PRINT#2, 

PRINT#2, 

PRINT#2, 

PRINT#2, 

L0CATE#1,25,1 

PRINT#!,“ < Leertaste! >” 

CALL &BB06:GOSUB 2920:GOTO 750 


M: 


F: 

R: 

T: 

V: 

U: 

A: 


Menue" 

Zeile anwaehlen" 

Sichern geloeschter Zeilen“ 
Formatieren des Textes“ 
Randbreite einstellen“ 
Trennen der Zeile" 
Vereinigen von Zeilen" 

Worte suchen" 

Austauschen von Worten" 


H: Anzeigen dieser Information’ 


*** Rueckkehr zum Menue *** 
IF u< >“m” THEN 1620 
RETURN 


*** Sprung zu Zeile *** 

IF u<>“ 2 “ THEN 1670 
GOSUB 460 
LOCATE #1,28,1 

INPUT #1,“ Welche Zeile ”;ize:IF ize<l OR iz 
■>maxze THEN PRINT #1,“Falsche Zeile. ";:G0T 
0 1640 

iba=MIN(maxze-23,ize>:icu=ize-iba+l:GOSUB 29 
20:GOTO 750 


*** Randbreite einstellen *** 
IF u< >"r“ THEN 1760 
GOSUB 460 
LOCATE #1,25,1 

INPUT#1," Linke Randbreite “;rand:IF rand<0 
OR rand>79 THEN 1720 
GOTO 750 


*** Zeile trennen *** 

IF u< >“t“ THEN 1880 

IF text (maxze) OSTRING* (80,” ”) THEN PRINT#1 
,TAB(25);CHR*<7);“*** Textspeicher voll ***” 
:GOTO 750 

IF ize=maxze THEN 750 

FOR i»maxze TO ize+1 STEP —1:MID*(text<i),1) 
-text(i—1):NEXT i 

MID*(text(ize+1),1)=STRING*Irand,“ ”)+RIGHT* 
(text(ize),81-isp)+STRING*(MAX(isp-l-rand,0) 
“> 


1810 MID*(text(ize),1)=LEFT*<text(ize),isp-l)+STR 
ING*(81—isp,” ") 

1820 IF ieu<23 THEN MID* <scrol1insert,6,1)=CHR*(i 
cu>:CALL PEEK(@scrol1insert+1)+PEEK<@scrol1i 
nsert+2)*256 

1830 LOCATE 1,icu:PRINTtext(ize)j 

1840 IF icu<24 THEN LOCATE 1,icu+1:PRINT text(ize 
+ 1); 

1850 GOTO 750 
1860 ' 

1870 *** Zeilen zusammensetzen *** 

1880 IF u< >"v" THEN 2060 
1890 IF ize=maxze THEN 750 

1900 IF text(ize+1)»STRING* <80," “) THEN 2030 
1910 i 1 =*1 

1920 WHILE MID*(text (ize+1) ,il ,1)=" " 

1930 i 1 =i1 +1 
1940 WEND 
1950 ir=80 

1960 WHILE MlD*(text(ize+1),ir,l>=“ “ 

1970 ir-ir-1 
1980 WEND 

1990 IF RIGHT*(text(ize),81—isp)< >STR1NG*(81-isp, 
" “) THEN PRINT #1sPRINT #1," *** Cursor is 

t nicht am Zeilenende ***“;CHR*(7):FOR i=l T 
0 3000:NEXT i:G0T0 750 

2000 IF LEN(RIGHT*(text(ize),81—isp))<ir—i1+1 THE 
N PRINT #1:PRINT #1," *** Platz hinter Curs 

or nicht ausreichend ***";CHR*(7):FOR i=l TO 
3000:NEXT i:GOTO 750 

2010 MID*<text(ize),l)=LEFT*(text(ize),isp-l)+MID 
*(text <ize+1),11,ir-i1 + 1) 

2020 LOCATE l,icu:PRINT text(ize); 

2030 FOR i-ize+1 TO maxze-1:MID*(text(i),1)“text< 
i + 1):N£XT i : MID*(text(maxze),1)«STRING*(80," 
**) 

2040 MID*(scrolldelete,6,l)=CHR*(icu):CALL PEEK(8 
scrol1delete+I)+PEEK(fiscrcl1delete+2)*256:LO 
CATE 1,24:PRINT text(iba+23)j:GOTO 750 
2050 ' 

2060 ' *** Text Formatieren *** 

2070 IF u< >"f" THEN 2320 
2080 merk=ize 
2090 GOSUB 460 
2100 LOCATE#1,25,1 

2110 INPUT#1,“ Wieviele Zeilen "janze 
2120 zei1»ize+anze-1 
2130 IF zeil>maxze THEN zeil»maxze 
2140 FOR i«ize TQ zei1 

2150 IF RIGHT*(text <i),80-rand)«STRING*(80-rand 
, “ “> THEN 2290 
2160 anf=rand+l 

2170 WHILE MID*(text(i),anf,1)«“ ” 

2180 anf=anf + 1 

2190 WEND 
2200 du=2 

2210 1“INSTR(anf,tex t <i) ”> 

2220 IF RIGHT*(text(i),80-1)»STRING*(80-1,“ “) 
THEN 2290 

2230 WHILE MID* (text ( i >, i sp, 1) »“ “ AND 100 
2240 MID*(text(i),l)«LEFT*(text(i>,1-1)+" "+M 

ID*(text(i),1) 

2250 1 = INSTR(1+du,tex t(i),“ ") 

2260 WEND 

2270 IF MID#(text(i),isp,l)« M " THEN du«du+l:G0 
TO 2210 

2280 IF icu+<i—merk)<25 THEN LOCATE l,icu+(i-me 
rk):PRINT text(i); 

2290 NEXT i 
2300 GOTO 750 
2310 ' 

2320 IF u< >"s“ THEN 2400 
2330 EI 

2340 PRINT MID*(text(ize),isp,1>; 

2350 GOTO 1200 

2360 ipo=ipo—1:ipo=MAX<0,ipo) 

2370 MID#(text(ize),1)«stack(ipo):LOCATE l,icu:PR 
INT text(ize)} 

2380 GOTO 750 
2390 ' 

2400 ' *** Warte suchen und austauschen 

*+* 

2410 IF u<>“w“ AND u<>“a" THEN 750 
2420 PRINT#1:PRINT#1,“ Welches Wort suchen Sie 7 
";:LINE INPUT#1,such 
2430 subst="“ 

2440 IF u< >“a“ THEN 2460 

2450 PRINT#1," Mit welchem Wart wollen Sie austau 
sehen 7 “;:LINE INPUT#1,subst 
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2460 t»" " : di f f =LEN (such) —LEN (subst) 

2470 ze=ize 

2480 PRINT MID*(text(ize),isp,1) ; 

2490 PRINT#1,TAB(30);“Ich suche...“ 

2S00 WHILE ize<ma»ze+l AND t<> K b“ 

2510 nr-1 

2520 WHILE INSTR(nr,text(ize),such)<>0 AND t< 
>“b“ 

2530 ze=ize 

2540 icu=ize-iba+l 

2550 IF icu>24 THEN iba=MIN(maxze-23,ize): icu 
=i ze-iba+1: GOSUB 2920 
2560 isp=INSTR(nr,text(ize),suchl 

2570 t="" 

2580 LOCATE l,icu:PRINT CHR*(24);text(ize);CH 

R*(24);:FOR i=l TO 100:NEXT i: 

LOCATE l f icu:PRINT text(ize); 

2590 LOCATE isp,icu 

2600 PRINT CHR*(24);MID*(text(ize),isp,1);CHR 

*(24);CHR*(8)j 

2610 IF u*"a“ THEN PRINT#1," W)eitersuchen 

Alustauschen Bleenden“ ELSE 
PRINT#1," W) ei tersuchen Daeschen B 
)eenden" 

2620 WHILE t = "“ :t=LOWER*(INKEY*):WEND 

2630 PRINT MID*(text{ize),isp,1); 

2640 IF tOV AND t<>“l" THEN 2680 

2650 IF di ff<0 THEN IF RIGHT*(text(ize),-di ff 

) OSTRING* (—di f f , " “) THEN 
PRINT#!,TAB(23);"#*# Platz reicht nicht 
aus ***";CHR*(7):FOR i=0 TO 1500s 
NEXT:GOTO 2570 

2660 MID*(text(ize),1)=LEFT*(text(ize),isp-l> 

♦subst+RIGHT*(text (ize) ,81—i sp— 

LEN (such) ) +STRING* (ABS (diff ) , " ") 

2670 LOCATE 1,icu:PRINTtext(ize); 

26BO nr=isp+l 

2690 PRINT#1,TAB(30);"Ich suche...“ 

2700 WEND 
2710 ize=ize+l 
2720 WEND 

2730 IF t="" THEN PRINT#1,“** Kein '“such"' im Te 
xt vorhanden **":GGT0 2760 
2740 IF t<>"b" THEN PRINT#1,"** Kein weiteres '“s 
uch"' gefunden **":G0TQ 2760 
2750 GOTO 2770 
2760 FOR i=0 TO 3500:NEXT 
2770 ize=ze 
2780 GOTO 750 
2790 ' 

2800 ' *** Neue Cursorpasitian *** 

2B10 ' 

2920 IF isp=75 THEN PRINTCHR*(7); 

2830 IF isp>80 THEN isp=l+rand!ize=ize+l:icu=icu+ 
1 

2840 IF isp<l THEN isp=80:ize=ize-1:icu=icu-1 
2850 ' IF isp=80 AND icu=iba+23 THEN isp=79 
2860 IF ize=maxze+l THEN ize=maxze:icu»24:PRINT#l 
,TAB(22);CHR*(7);"*** Textende erreicht ***" 
:GOTO 760 

2870 IF ize<1 THEN ize-1:icu=l:PRINT#1,TAB(22);CH 
R*(7);“*** Textanfang erreicht *** H :G0T0 760 
2880 IF icu>24 THEN iba*iba+1:icu=24:CALL PEEK(®s 
crollup + 1)+PEEK(@scrollup+2)*256:LOCATE 1,24 
SPRINT text(iba+23);sGOTO 760 * aufwaerts sc 
rollen (neue Zeile erscheint unten) 

2890 IF icu<1 THEN iba=iba-1:icu=l:CALL PEEK(@scr 
olldawn+1)+PEEK Oscral1 down+2)*256:LOCATE 1, 

1:PRINT text(iba)GOTO 760 * abwaerts scrol 
len (neue Zeile erscheint oben) 

2900 GOTO 760 
2910 ' 

2920 ‘ *** Textschirm wiederherstel1en *** 

2930 ' 

2940 CLS:CLS#1 

2950 FOR i=iba TO MIN(iba+23,maxze) 

2960 IF text(i)»STRING*(80," ") THEN PRINT ELSE 
PRINT text(i); 

2970 NEXT i 
2980 GOSUB 460 
2990 RETURN 
3000 ' 

3010 ' *** Loeschen *** 

3020 ' 

3030 INPUT “Sind Sie sicher, dass Sie den Text la 
eschen wollen ? (Ja eingeben) "js 
3040 IF s< >“Ja" THEN RETURN 
3050 FOR i“0 TO maxze 

3060 MID*(text(i),1)=STRING*(80,“ “) 

3070 NEXT i 

3080 MID*(stack(0),1)=STRING*(80," ">:ipo=0 
7090 RETURN 
3100 ' 


31 IO * **# Ausdrucken *** 

3120 ' 

3130 laenge=maxze 

3140 WHILE text(laenge)»STRING*(80," "> 

3150 1aenge=laenge—1 

3160 WEND 

3170 PRINT “Bitte Drucker varbereiten und Druckka 
pf auf Anfang erstes Blatt stellen!" 

3180 PRINT 


3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 


PRINT "Autamatischer oder manueller Varschub 
nach jedem Blatt (A/M) ?“ 
s=UPP£R*(INKEY*) 

IF s< >“A" AND s< >“M“ THEN 3200 
CLS 

INPUT “Anzahl der Zeichen pro Zeile auf dem 
Drucker ";druckbreite 

IF druckbreite<1 OR druckbreite>255 THEN 322 
0 

WIDTH druckbreite 
CLS 


PRINT“Schriftart en: 
PRINT CHR*(i1);" K 
PRINT CHR*(i2);" S 
ft“ 

PRINT CHR*(i3) ; " B 
t“ 

PRINT CHR*(i4);" F 

PRINT CHR* (iS) ; "• D 
«• 


:PRINT 
“;CHR*(i1); 
“;CHR*(i2); 

”;CHR*(i3); 

“;CHR*(i4); 
CHR*(i5 >; 


Kursiv" 
Schmal sehri 

Breitschrif 

Fettdruck" 
Doppel druck 


3330 PRINT CHR* (i6) ; " E : " ; CHR* ( i 6) ; '* Eliteschrif 
t” 

3340 PRINT“ ~ : Seitenvorschub" 

3350 PRINT" - : Zeilenvorschub" 

3360 PRINT“ I : Initialisieren" 

3370 PRINT“ R : Rueckkehr zum Hauptmenue" 

3380 PRINT“ P : ";CHR*(24);" DRUCKEN ”;CHR*(24) 
3390 ts=UPPER*(INKEY*):IF INSTR (" KSBFDE-'-IRP" , ts 
)<2 THEN 3390 
3400 CLS 

3410 PRINT "Der Drucker ist nicht angeschlossen o 
der nicht 'ON LINE' !" 

3420 ON INSTR ( “KSBFDE"'- IRP" ,ts) GOTO 3430,3440,34 
50,3460,3470,3480,3490,3500,3510,3520,3530 
3430 PRINT#B,CHR*(27);"4“;:i1*24:GOTO 3260 
3440 PRINT#8,CHR*(27);CHR*(15);:i2=24:GOTO 3260 
3450 PRINT#8,CHR*(27); "W" ;CHR#(1>;:i3=24:GOTO 326 
0 

3460 PRINT#S,CHR*(27);"E";:i4=24:G0T0 3260 
3470 PRINT#8,CHR*(27);"G";:i5=24: GOTO 3260 
3480 PRINT#8,CHR*(27);"M“;:i6=24:GOTO 3260 
3490 PRINT#B,CHR*(12);:GOTO 3260 
3500 PRINT#8,CHR*(10);:GOTO 3260 

3510 PRINT#8,CHR*(27);:il=0:i2=0:i3=0:i4=0:i5 
=0: : 6*=0s GOTO 3260 
3520 RETURN 

3530 PRINT #8,CHR*(27);"A";CHR*(15); ' Hier spezi 
eile Steuerung fuer Drucker—Zeilenabstand 
3540 CLS 

3550 druckhaehe=53 ’ Anzahl der Zeilen auf einem 
Blatt, abhaengig vom Zeilenabstand 
3560 IF szei»“deutsch“ THEN PRINT #8,CHR*(27);"R“ 

;CHR*(2); 

3570 IF szei="engl." THEN PRINT #8,CHR*(27);"R“;C 
HR*(0); 

3580 INPUT“Anzahl der Ausdrucke: ",anzk 
3590 CLS 

3600 FOR j=l TO anzk 
3610 FOR i=l TO laenge 

3620 PRINT #8,LEFT*(tex t(i)+STRING*(175,32) ,d 
ruckbreite); 

3630 IF i MOD druekhoehe>0 OR i=0 OR i»laenge 

THEN 3670 

3640 IF s="A“ THEN PRINT #8,CHR*(12);:GOTO 36 

70 

3650 PRINT"Naechstes Blatt vorbereiten; wenn 

fertig, ENTER druecken":CALL &BB06 
3660 CLS 

3670 NEXT i 

3680 IF j=anzk THEN PRINT#8:G0T0 3730 

3690 IF s=" A" THEN PRINT #8,CHR*(12);:GOTO 3730 

3700 PRINT#8 

3710 IF j<anzk THEN PRINT"Naechstes Blatt varbe 
reiten; wenn fertig, ENTER druecken":CALL 
&BB06 

3720 CLS 
3730 NEXT j 
3740 GOTO 3260 
3750 ‘ 

3760 ' *** Speichern bzw. Laden #** 

3770 CLS:CLS#1 

3780 PRINT"S: Speichern" 

3790 PRINT"L: Laden bzw. Textfiles suchen“ 
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3800 

3810 

3820 

3830 

3840 

3850 

3860 


3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 
4100 
4110 
4 120 


4130 
4140 
4150 
4160 
4 170 
4180 

4190 


4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 


4310 
4320 
4330 
4340 
4350 
4360 
4370 
4300 
4 390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 


PRINT"R: Rueckkehr zum Hauptmenue" 
PRINTsPRINT" Bitte waehlen Sie!" 

S=LQWERS <1NKE Y*) 

1F s=“r" THEN RETURN 
IF s<>"s" THEN 4060 

CLS:CLS#1:PRI NT# 1,TAB < 26);"- TEXT SPEICHE 

RN-" 

IF »datum 3 ““ THEN INPUT “Bitte geben Sie das 
heutige Datum fuer die Speicherung an x “,s 
datum:PRINT 

PRINT'Aufzeichnungsgeschwindigkeit schnell a 
der langsam Cs/11 ?“ 

SPEED WRITE 1 
t=L0WER*(INKEYS) 

IF t = “s" THEN POKE &B8D1,2: POKE S.B8D2,23: GÜT 
Q 3920 

IF t<>"l" THEN 3890 

PRINT:INPUT "Textname : ",sdatei 

OPENOUT "supertext.file" 

laenge=maxzc 

WHILE text(laenge)=STRINGS<80,32) AND laenge 
X) 

1 aenge=laenge-l 
UEND 

PRINT #9,sdatei 
PRINT #9,sdatum 
PRINT #9,laenge 
FOR i=l TO laenge 
PR1NT#9,t ex t(i) 

NEXT 
CLOSEOUT 
GOTO 3770 

IF s< >“1“ THEN 3820 
CLS 

PRINT:PRINT "Druecken Sie bitte die PLAY-Tas 

te am RecorderPRINT 

CLS#1:PRINT# 1 , TAB <30);"Ich suche..." 

□PENIN "! supertext.fi le" 

INPUT #9,sfilename,sliledatum,1aenge 
PRINT “Gefunden: ” 5 sfi1ename;", aufgezeichne 
t am sfiledatum;", Laenge:1aenge;"Zeilen 

PRINT#1,“ U)eitersuchen Lladen Bleenden" 
t=*LQWERS < INKEYS) : IF THEN 4140 

IF t =11 w 11 THEN CLOSEIN: GOTO 4090 
IF t="b" THEN 4230 
IF tO-l" THEN 4140 

CLS#1:PRINT#1,TAB(26);sfi1ename;“ wird gelad 
en“ 

IF 1 aenge>maxze THEN ERASE textxDIM textdae 
nge) : maxze=*l aenge: PRINT: PRINT“Die maximale Z 
eilenzahl wird auf"maxze" erhoeht !" 

FOR i=l TO laenge 

LINE INPUT#9,text(i) 

NEXT 

CLOSEIN 

PRINTSPRINT“Druecken Sie die STOP—Taste am R 
ecorder und eine beliebige Taste" 

CALL &BB06 
GOTO 3770 

*** Beenden des Programms »#* 

INPUT "Sind Sie sicher, dass Sie das Program 

m beenden wallen (dadurch kann Ihr Text v 

erloren gehen!) ? (Ja eingeben) *'; s 

IF s< >‘‘Ja" THEN RETURN 

IF szei< >"engl." THEN GOSUB 4550 

BORDER 0:PEN 1:PAPER 0 

CLS 

END 

*** Deutscher Zeichensatz *** 

PRINT#1,TAB(34);"Moment bitte" 

SYMBOL AFTER 63 

SYMBOL 64,28,32,56,68,56,8,112,0 
SYMBOL 91,90,60,102,102,126,102,102,0 
SYMBOL 92,186,108,198,198,198,108,56,0 
SYMBOL 93,102,0,102,102,102,102,60,0 
SYMBOL 123,72,0,120,12,124,204,118,0 
SYMBOL 124,36,0,60,102,102,102,60,0 
SYMBOL 125,68,0,102,102,102,102,62,0 
SYMBOL 126,56,108,108,108,102,118,108,96 
KEY DEF 24,1,&5E,64 
KEY DEF 22,1,124,92 
KEY DEF 19,1,125,93 


Tastenbelegung mit d 


4520 KEY DEF 17,1,123,91 
4530 KEY DEF 26,1,126,96 
4540 RETURN 

4550 PRINT#1,TAB(34);"Moment bitte 
4560 SYMBOL AFTER 240 
4570 KEY DEF 24,1 , «<5E, S.A3 
4580 KEY DEF 26, 1 ,8.40,&7C 
4590 KEY DEF 17,1,91,123 
4600 KEY DEF 19,1,93,125 
4610 KEY DEF 22,1,&5C,&60 
4620 RETURN 
4630 PRINT“ 

eutschem Zeichensatz:“ 

4640 IF szei«"deutsch“ THEN GOSUB 4550 
4650 PRINT:PRINT:PRINT 
4660 LOCATE 35,5:PRINT"C 
4670 LOCATE 35,6:PRINT“\ 

4680 LOCATE 35,7:PRINT"3 
4690 LOCATE 35,8:PRINT "@ 

4700 LOCATE 35,9:PRINT"< -*’ 

4710 LOCATE 35,IO:PRINT'“ 

4720 LOCATE 35,11:PRINT"> 

4730 LOCATE 35,12:PRINT"# 

4740 GOSUB 4360:szei="deutsch" 

4750 LOCATE 39,5:PRINT"C' 

4760 LOCATE 39,6:PRINT"! 

4770 LOCATE 39,7:PRINT“> 

4780 LOCATE 39,8: PRINT 
4790 LOCATE 39,9:PRINT"E 1 
4800 LOCATE 39,10:PRINT"\" 

4810 LOCATE 39,11:PRINT"3" 

4820 LOCATE 39,12:PRINT"®" 

4830 CLS#1 

4840 PRINT:PRINT:PRINT:PRINT"E: 

4850 PRINT"A: ausschalten" 

4860 PRINT:PRINT" Bitte waehlen Sie!" 

4870 s=UPPER$(INKEYS) 

4880 IF 5 ="A" THEN GOSUB 4550:szei="engl. ": 
RETURN 

4890 IF s=“£" THEN RETURN 
4900 GOTO 4870 


einschalten ’ 


- SHIFT + Cursor rechts: Fügt vor 
dem Cursor ein Zeichen ein. - 
SHIFT + Cursor links: Löscht das 
Zeichen auf Cursorposition. - 
SHIFT + Cursor unten: Fügt über 
dem Cursor eine Zeile ein. -SHIFT 
+ Cursor oben: Löscht die Zeile auf 
Cursorposition. - COPY: Setzt Cur¬ 
sor auf Textanfang. -SHIFT + CO¬ 
PY: Setzt Cursor auf Textende. - 
CTRL + Cursor links: löscht den 
Rest der Zeile rechts des Cursors - 
CTRL + Cursor rechts: Löscht den 
Rest der Zeile rechts des Cursors. - 
CTRL + COPY: Lädt die Zeile in 
den Puffer. -CTRL + „S“: Holt ge¬ 
löschte oder mit CTRL + COPY ge¬ 
ladene Zeile und setzt diese zwi¬ 
schen den Cursor und die Zeile 
darüber. -CLR oder DEL: Diese 
beiden Tasten besitzen die ge¬ 
wohnten Funktionen. -TAB: Bewegt 
den Cursor in Zehnerschritten vor¬ 
wärts — SHIFT + TAB: Bewegt den 
Cursor in Zehnerschritten rück¬ 
wärts. 



















Anwendung 


160 


Schneider spezial 


SD¬ 

Plot 


Dieses Programm plottet dreidi¬ 
mensionale Funktionen (d.h. Funk¬ 
tionen von zwei Veränderlichen) 
auf dem Bildschirm und fertigt auf 
Wunsch auch eine Hardcopy an. 
Die Funktion liegt dabei in der 
Form z = f (x,y) als Unterprogramm 
ab Zeile 1000 vor. Zu Beginn wer¬ 
den der zu plottende Bereich und 
die Anzahl der zu zeichnenden pa¬ 
rallelen Linien abgefragt. 

Bei der Darstellung der Funktion 
läuft die x-Achse nach hinten 
rechts, die y-Achse nach hinten 
links und die z-Achse nach oben. 
Die Funktion wird dann durch je¬ 
weils zur x- und y-Achse parallele 
Linienscharen dargestellt. Im Pro¬ 
gramm wird dabei für beide Rich¬ 
tungen die gleiche Schleife be¬ 
nutzt, die von einer äußeren Schlei¬ 
fe gesteuert wird. 

Verdeckte Linien werden dabei 
unterdrückt; dies läuft so, daß alle 
Punkte, die zwischen den bisher 
gezeichneten Limen liegen (d.h. al¬ 
le Punkte zwischen den bisherigen 


Verdeckte Linien 
unterdrücken 


Minima und unterhalb des Maxi¬ 
mums), nicht gezeichnet werden. 
Die Minima und Maxima werden in 
den Feldern maxp und minp ge¬ 
speichert, die vor jedem der bei¬ 
den Durchläufe mit einem speziel¬ 
len Wert gekennzeichnet werden, 
weil zu Beginn noch keine Minima 
und Maxima existieren. 

Der Bereich, in dem die Funktion 
geplottet wird, wird durch die 
Grenzen xmin und xmax, ymin und 
ymax, zmin und zmax angegeben. 
Alle außerhalb dieses Bereiches 
fallenden Punkte werden trotzdem 
gezeichnet, falls sie noch auf dem 
Bildschirm sichtbar sind. 



30 INK 1,26:PEN 1 
40 INK 0,0:PAPER 0 
50 MEMORY &9FFF 
60 FOR i=&AOOO TO &A0BF 

70 READ byte:P0KE i,byte:s=s+byte:NEXT 

80 IF s< >23767 THEN PRINT"Fehler in datas !*':EN 


D 

90 CLEAR 

100 DEFINT d,i,j,r,f,g,n,m 
110 CLS 

120 PRINT" 3D-Plot":PRINT 

SPRINT " Copyright FTCP 198 

2"SPRINT 
130 PRINT 

140 PRINT" Realisiert durch FTCP & THB 

CS 1985":PRINT:PRINT 

150 PRINT" Eingabe der Funktion als z=-f(x,y) 

ab Zeile 1000" 

160 PRINT 

170 PRINT"Eingabe von xmin, xmax," 

180 PRINT" ymin, ymax," 

190 PRINT" zmin, zmax, 

200 INPUT " Anzahl Linien";xmin,xmax 

,ymin,ymax,zmin,zmax,n 

210 IF xmin>=xmax OR ymin>-ymax OR zmin>=zmax OR 
n<2 THEN 110 

220 m=320 ' Anzahl der Punkte in beiden Haupta 

chsrichtungen 
230 d1=320 
240 d2=100 
250 d3=200 
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Die meisten der Beispielfunktio¬ 
nen sind punktsymmetrisch zum 
Ursprung, dies muß jedoch nicht 
sein, wie die „Wellen“ zeigen. Für 
symmetrische Funktionen sollte 
auch der x- und y-Bereich symme¬ 
trisch gewählt werden, so z.B. in x- 
nnd y-Richtung von -1.7 bis 1.7 wie 
beim „Sombrero" und anderen 
Funktionen. Um eine unbekannte 
Funktion darzustellen, sollte man 
zu Beginn einen ziemlich großen 
Bereich wählen und dann nach Au¬ 
genmaß einen kleineren Aus¬ 
schnitt eingeben. 



260 cl—(xraax-xmin)/(n—1) 

270 c2=d1/(n-1) 

280 c3=dl/m 

290 c4=d3/(zmax-zmin) 

300 c5=(xmax-xmin)/m 
310 c6=(ymax-ymin)/(n—1) 

320 c7=<ymax-ymin)/m 
330 c8=d2/<n-l> 

340 c9~d2/m 

350 DIM maxp(2*dl),minp(2*dl) 

360 MODE 2 
370 ORIGIN 320,0 
380 FOR r=-1 TO 0 
390 FOR 1=0 TO 2*dl 

400 maxp(i)=—10000:minp (i )-—10000 

410 NEXT i 

420 FOR i=0 TO n-1 

430 IF r THEN x=xmin+cl*i ELSE y=ymin+c6#i 

440 -F=-l 

450 FOR j=0 TO m 

460 IF r THEN y=ymin+c7*j ELSE x=xmin+c5#j 

470 GOSUB lOOO 

480 xp7.=R0UND(i*c2-j*c3> : IF NOT r THEN xp7. 

=-xp7. 

490 yp/C=ROUND (i*cS+j*c9+ (z-zmin) *c4) 

500 index=xpv£+dl 

510 IF maxp<index)=-10000 THEN maxp(index) 

=yp/C:minp <index ) *ypv£: g=—l: GOTO 530 


520 

IF ypX>maxp(index> THEN maxp(index) 

=yp 


7.:g=-l ELSE IF yp'/.Cminp Cindex ) THEN mi 
np(index)=ypX:g=—1 ELSE g=0 

530 

IF j=0 THEN MOVE xpX.ypX:GOTO 560 


540 

IF f AND g THEN DRAW xp7.,yp7. 


550 

IF g THEN MOVE xp7.,yp7. 


560 

f=g 


570 

NEXT j 


580 

NEXT i 


590 

NEXT r 


600 

DIM rs(639) 


610 

FOR i=0 TO 639 


620 

rs(i> =PEEK(49152+i MOD 80+<i\BO)*2048> 


630 

NEXT 


640 

LGCATE 1,1sPRINT M H)ardcopy BJeenden N)eustar 

650 

s*=LOWER*(INKEY*> : IF s*="b" THEN CLS.-END 

ELS 


E IF s*="n** THEN ERASE mi np ,maxp ,rs: GOTO 
ELSE IF s*< Vh" THEN 650 

110 

660 

FOR i=0 TO 639 


670 

POKE 49152+i MOD 80+(i\B0>*2048,rs<i) 


680 

NEXT 


690 

PRINT#8,CHR* (27) ; CALL S.AOOO: PRINT#B: 

NT#8,CHR*(27);"e" 

PRI 

700 

GOTO 640 


990 

* *** Huegel *** 


1000 

'z=EXP(—x*x-y*y) 


1010 

*** Sombrero *** 


1020 

z=EXP <-x*x-y*y> *COS(SQR(x*x+y*y)*5) 


1030 

*** Spitze *** 


1040 

'z=sqr <x*x+y*y> 


1050 

'if z>2 then z=0 eise z=2-z 


1060 

' *** Torte *** 


1070 

'z=sqr(x*x+y*y) 


1080 

'if z >2 then z=0 eise z=2 


1090 

*** Hochzeitstorte *** 


1100 

'z=sqr (x*x+y*y> 


1110 

'if z>3 then z=0 eise z=3-intCz) 


1120 

• *** Kuppel *** 


1130 

* 2 =x*x+y*y 


1140 

'if sqr(z)>3 then z-0 eise z=sqr(9—z) 


1150 

' *** Wellen *** 


1160 

'z=COS(x>:z=z*z*y*y 



1170 

1180 

1190 

1200 

1210 

1220 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 


*** Schwarzes Loch *** 

*z=SQR <x*x+y*y> 

'IF z=0 THEN z=0.Ol 
'z =—ABS(1/z) 

' *•* Kreuzgewoelbe *** 

'z=*EXP (-(x J *x) +EXP (- (y) *y) -EXP(- (x ) *x-y*y) 
RETURN 


DATA &cd, &ba, 8<bb, &cd , S<e7, &bb, &32, 8<bd 
DATA 8<aO, &cd , «<6c , &aO, &21, «<Bf ,«<01, S<22 
DATA «<be,ScaO,«d 1 , 5<00,S<00,«<3e,«<07,5<32 
DATA JtcO, «aO, &cd , 8<7c , S<aO, &<0e ,S<00, «<3a 
DATA 8<c0,S<a0,S<47,S<e5,S<d5,S<c5,S<cd , «<f O 
DATA 8<bb , «<c 1,8<d 1 ,«<21, &bd, &aO,«be, «<el 
DATA S<37, &20, S<01,5<a7, «<cb, & 11, «<2b , «<2b 
DATA «<10,S<e9,Sccd ,«<af ,&aO,S<79,«<cd ,&a6 
DATA S<aO,5<13,8<e5, S<21 , «<7f ,S<02,«<37, &ed 
DATA «<52,8<e 1, S.38, S<05, «<2a, tbe, S<aO, S< 18 
DATA «<cc , «<23,8<7c , S<b5, S<cB, «<2b ,«<11, «<00 
DATA «<00, S<22,!<be, 8<aO, «<3e, S<07, «<bd ,«<20 
DATA 8<b9,8<7c , S<b4, «<20, &<b5, «<3e, &<04, «<32 
DATA S<c0,S<a0,S<18,S<ae l «<3e,S<lb,S<cd,S<a6 
DATA 8<a0,8<3e ,«<41,8<cd, 8<a6, S<aO, «<3e, «<07 
DATA «<cd , «<a6, «<aO, 8<c9, S<e5, «<3e, S<42, &cd 
DATA «<le, «<bb , «<el, «c28, S<02, «<e 1,«<c9,8<3e 
DATA «<0d, «<cd, «<a6, &a0, «<3e, «<0a , «<cd , 8<a6 
DATA «<aO, «c3e ,«<1 b , «<cd , 8<a6, «<a0, «<3e, «<4c 
DATA 8<cd,5<a6,S<aO,5<3e,8<7f ,«<cd,«<a6,S<aO 
DATA «<3e, S<02, «<cd , «<a6, «<a0, «<c9, «<cd , «<2e 
DATA «<bd, «<38, «<f b , «<cd, «<2b, «<bd , S<c9, «<3a 
DATA 8<cO,S<aO,Srf e ,S<07, !<c8, «<af ,8<cb ,«<11 
DATA «<cb , 8< 11 , «<c b , S< 11, «<c 9, S<00, S<00,8<00 
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Hyperplot für CPC 

Das Besondere an diesem Programm ist die Darstellung der Funktionsgraphen in einem Koordinaten¬ 
system mit relativ exakter Skaleneinteilung und die Eingabe von Funktionen (scheinbar) während des 
Programmablaufes. Außerdem können bis zu neun Funktionen vordefiniert und über Tastendruck 

aufgerufen werden. 


Die Skaleneinteilung kann ver¬ 
ändert werden, wodurch man Aus¬ 
schnitte aus dem Graphen belie¬ 
big vergrößern kann. Der Ur¬ 
sprung des Koordinatensystems 
läßt sich beliebig, auch außerhalb 
des Bildschirms, verschieben. So 
lassen sich zum Beispiel Nullstel¬ 
len ziemlich genau schätzen. 


Der Trick 


Mit dem Befehl DEF FN xxx 
kann man im BASIC Funktionen 
mit Namen versehen und diese 
dann während des Programms mit 


diesem Namen ansprechen, ohne 
jedesmal die Funktion neu einge¬ 
ben zu müssen. Leider ist kein Be¬ 
fehl vorgesehen, mit dem man 
während des Programmlaufes 
Funktionen vom Benutzer einiesen 
kann. Die mit DEF FN definierten 
Funktionen können also nur durch 
eine Änderung des Programms 
neu definiert werden. In diesem 
Programm wird daher, wenn der 
Benutzer den Menüpunkt „ Einga¬ 
be einer Funktion“ anwählt, eine 
Funktionstaste mit dem Befehl 
EDIT und der Zeilennummer der 
jeweiligen Funktion belegt. Dann 
wird, nachdem der Benutzer auf¬ 
gefordert wurde, diese Funktions¬ 


taste zu drücken, das Programm 
beendet. Wenn der Benutzer nun 
die Funktionstaste drückt, er¬ 
scheint die Zeile mit der ge¬ 
wünschten Funktion und kann ver¬ 
ändert werden. Mit einem, eben¬ 
falls auf einer Funktionstaste lie¬ 
genden, GOTO-Befehl wird das 
Programm dann neu gestartet. 

Das Programm ist modular auf¬ 
gebaut und kann dadurch relativ 
einfach erweitert werden. So könn¬ 
te man zum Beispiel die Möglich¬ 
keit, zwei oder mehr Funktionsgra¬ 
phen gleichzeitig darzustellen, 
realisieren. Oder man implemen¬ 
tiert die Berechnung von Nullstel¬ 
len und Extrema.(tb) 


10 '<c> 19B5 

20 ' Thomas Barndt 

50 ' 

60 DEFINT i 

70 INK 0,0:INK 1,26:INK 2 
80 MODE O 
90 LOCATE 1,10 
100 PEN 2 

110 PRINT TAB(6)"HYPERPLOT 

120 PEN 1 

130 LOCATE 9,14 

140 PRINT"by THBCS" 

150 LOCATE 3,24 

160 PRINT CHRS(164):" 3/85 

170 FOR i=0 TO 3000 

180 IF INKEYfO“’ 1 THEN i 

190 NEXT * 

200 ' 

210 ' 


,25:INK 3,25:BOEDER 8 


450 wahl=0 

460 CLS:ORIGIN 0,0 

470 BORDER 10 

480 LOCATE 22,2:PAPER 1:PEN 0 

490 PRINT“ Waehlen Sie bitte 

500 PRINT:PEN 1:PAPER 0:PR INT: PR I NT 



220 ‘ **** Funktionsnamen -festlegen **** 


230 ' 

240 CLEAR 

250 DIM namel(9) 

260 name£(l)=“ln x" 

270 name$(21= ,, sin " 

280 namel (3) = "y.'2" 

290 namef(4)= ,, x A 4 (>: A 2 - 1 ) " 
300 name£ (5) =*’ 1 />: — 3 / x ' 3 " 
310 namel (6) = "exp >: " 

320 namef (7)=": (>:-l) A 2 - 4 ! " 
330 namef (8) = " 1 / >:" 

340 namef (9)="tan " 

350 PEN 1:PAPER O:BORDER 0 

360 MODE 2 

370 GOSUB 1320 

380 >: =320: y=200: mass=60 

390 RAD 

4 00 ' 


4 10 
420 
430 
440 


* **-****•**-*•*# *** ** 

*. * * MENUE * 


510 FOR 1=1 TO 9 

520 PRINT TAB(6);l". “:namef<i):PRINT 
530 NEXT i 

540 LOCATE 70,24:PRINTCHRT(164) ; " THBCS" 

550 LOCATE 40,6:PRINT"EP1 — Funktion Flotten" 
560 LOCATE 40,8: F‘R I NT “ CE 3 — Neue Einheit" 

570 LOCATE 40,IO:PRINT"CU] - Neuer Ursprung” 
580 LOCATE 40,12:PRINT"CR3 - Einheit+UrSprung 
normalisieren" 

590 LOCATE 40,14:PRINT"CND - Neue Funktion 
einge ben" 

600 LOCATL i7,24:PRINT"Momentane Funktion: fix) 

610 LOCATE 44,24:PRINT SPC(16> 

620 PEN O:PAPER 1 

630 LOCATE 44,24: PR INT" "namef«)" " 

640 PEN 1:PAPER 0 
650 a f = I Nk'EY f 
660 wahl=VAL(af> 

670 IF a*="u" THEN wahl=10 
680 IF af*"e" THEN wahl=ll 


♦:►*****•».**■***•**** 
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690 IF a*="p" THEN wähl«= 12 
700 IF a*='*r" THEN 380 
710 IF aS—“n“ THEN 2090 
720 IF wähl<1 0R wähl>12 THEN 650 
730 ON wähl GOSÜB 12B0,1320,1360,1400,1440,1480 
1520,1560,1600,1860,1670,790 
740 * 

750 IF wähl<10 THEN 610 ELSE 430 
760 *• 

770 * 

780 ’ 

790 * *** Koordinatenkreuz *** 

800 * 

810 BDRDER O 
820 CLS 

830 PRINT TAB(20)“f(x)=";name$(f ) 

840 PLOT 0,y:DRAW 640,y 
850 PLOT x,400:DRAW x,0 


IU>:1U*1JT< - 41 

1 




/ \ 


3 

\ ( 

2 


1 

y 

-5 -4 -3 -i -1 

I 2 1 4 i 

UtrUsU 1 

-1 


860 ORIGIN x,y 
870 * 

880 ’ 

890 * *** SKALENEINTEILUNG *** 

900 * 

910 IF mass<10 THEN 1110 
920 TAG 

930 FOR k=0 TO (640-x) STEP mass 
940 PLOT k1:DRAW k,-6 



950 IF k/mass>0 AND mass>30 THEN PRINT k/mass 
5 

960 NEXT 

970 FOR k=0 TO -x STEP? -..lass 
980 PLOT k,—1:DRAW k,-6 

990 IF k/-mass>0 AND mass>30 THEN PRINT k/mas 

s; 

lOOO NEXT 

1010 FOR k=0 TO (400—y) STEP mass 
1020 PLOT 1,k:DRAW 4,k 

1030 IF k/raass>0 AND mass>30 THEN PRINT k/mass 
» 

1040 NEXT 

1050 FOR k=0 TO -y STEP -mass 
1060 PLOT 1,k:DRAW 4,k 

1070 IF k/—mass>0 AND mass>30 THEN PRINT k/mas 

s; 

1080 NEXT 
1090 TAGOFF 
1 100 • 

1110 • 

1120 * *** FUNKTION PLOTTEN *** 

1130 * 

1140 ON ERROR GOTO 1230 
1150 FOR i=-x TO (640-x) 

1160 PLOT i , FNf unkt i on (i/mass) * mass 


1170 NEXT 

1180 LOCATE 2,24:PRINT"Leer taste •" 

1190 IF INKEY*< >"" THEN RETURN ELSE 1190 

1200 ORIGIN 0.0 

1210 ON ERROR GOTO 2310 

1220 RETURN 

1230 RESUHE NEXT 

1240 ' 

1250 * 

1260 ' *** Definieren der Funktionen *** 

1270 ' 

1280 DEF FNfunktian(x)=1n(x) 

1290 f=1 
1300 RETURN 
1310 ’ 

1320 DEF FNfunktian <x)=SIN(x) 

1330 f=2 
1340 RETURN 
1350 ' 

1360 DEF FNfunktion (x > =x*x 
1370 f=3 
1380 RETURN 
1390 ' 

1400 DEF FNfunktion(x>=x~4*<x~2-l> 

1410 f=4 
1420 RETURN 
1430 ' 

1440 DEF FNfunktion(x )—1 
1450 f=5 
1460 RETURN 
1470 ’ 

1480 DEF FNfunktion(x)=EXP<x) 

1490 f=6 
1500 RETURN 
1510 ' 


/ 

/ 

j / 

/ J 

■ ’ y 

/ 

LntUiU f 

. . ^ 


1520 DEF FNfunktion(x)=ABS((x-l)^2-4) 

1530 f=7 
1540 RETURN 
1550 ' 

1560 DEF FNfunktian(x)=1/x 
1570 f=8 
1580 RETURN 
1590 • 

1600 DEF FNfunktian(x)=TAN<x) 

1610 f=9 
1620 RETURN 
1630 ' 

1640 ' 

1650 ' **-* Fest legen der Einheit 

1660 ' 

1670 CLS 
1680 MODE 1 

1690 PRINT TAB(15)"f(x)=";name*(f ) 

1700 LOCATE 30,24:PR INT"Momentane Einheit : "; 

1710 PEN 2 

1720 PRINT mass; 

1730 PEN 1 

1740 PRINT"Punkte“ 

1750 LOCATE 1,6 

1760 PRINT" Geben Sie bitte die Laenge": 

PRINT 

1770 PRINT" der gewuenschten Einheit in”:PRIN 

T 

1780 PRINT" Punkten an!":PRINT 

1790 PRINT:PRINT:PRINT" 

1800 PEN O:PAPER 1 
1810 INPUT" ",raa55 
1320 PEN 1:PAPER 0 
1830 MODE 2 
1840 RETURN 
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1350 ' 

1B60 ' *** Festlegen des Ursprungs *** 

1870 ‘ 

1880 CLS 
1890 MODE 1 

1900 PRINT" -f (x)=";name*(f ) 

1910 LOCATE 30,24:PRINT"Momentaner Ursprung : 

1920 PEN 2 
1930 PRINT x;"," ; y 
1940 PEN 1 
1950 LOCATE 1,6 

1960 PRINT" Geben Sie bitte die Koordinaten": 

PRINT 

1970 PRINT" des Ursprungs in folgender Form": 

PRINT 

1980 PRINT" an : x,y" 

1990 PRINT: PRINT-.PRINT SPC(15); 

2000 PEN 0:PAPER 1 
2010 INPUT" ",x,y 
2020 PEN 1:PAPER 0 
2030 MODE 2 
2040 RETURN 
2050 • 

2060 ' 

2070 * *** FUNKTION EINGEBEN *** 

2080 ' 

2090 KEY 138,"goto 450"+CHR*(13) 


2100 CLS 

2110 PRINT SPC(10)"Geben Sie die Nummer der Funkt 
ion ein, welche Sie aendern“ 

2120 PRINT SPC(10)"wollen !" 

2130 PRINT 
2140 a$="" 

2150 WHILE a$="":a*=INKEY*:WEND 
2160 a=VAL(a*> 

2170 IF a<l OR a>9 THEN 2140 

2180 INPUT“ Name der neuen Funktion: “,n 

ame*(a) 

2190 fu=1280+(a-1)*40 
2200 fu*=STR*(fu) 

2210 KEY 128,CHR$(13)+"edit "+fu*+CHR*(13) 

2220 CLS 

2230 PRINT SPC(10)"Druecken Sie die COI im Ziffer 
nblock rechts neben" 

2240 PRINT SPC(10)"der Tastatur." 

2250 PRINT SPC(10)"Tragen Sie in die dann ersch 
einende Zeile ihre" 

2260 PRINT SPC(10)"Funktion anstatt der Alten ein 

I » 

2270 PRINT 

2280 PRINT SPC(10)"Druecken Sie danach den C.3 
im Ziffernblock." 

2290 PRINT:PRINT:PRINT 
2300 END 
2310 CLS 











Zwar haben die beiden Schnei¬ 
der Computer 464 und 664 eine 
ausgezeichnete Grafik, aber die et¬ 
was spärlichen Grafikbefehle ma¬ 
chen es dem Benutzer nicht gerade 
leicht, ein vernünftiges Bild auf den 
Bildschirm zu bringen. Solange es 
sich noch um mathematisch be¬ 
schreibbare Figuren handelt, geht 
das in BASIC ja noch gerade, aber 
haben Sie schon einmal versucht, 
z.B. ein Portrait auf den Bildschirm 
zu bringen? Jetzt können Sie es! Mit 
dem Grafikeditor sind Ihrer Phan¬ 
tasie keine Grenzen gesetzt. Sie 
können frei Hand zeichnen, Linien, 


Rechtecke, Kreise zaubern Sie in 
Sekundenschnelle auf den Bild¬ 
schirm. Flächen können automa¬ 
tisch ausgemalt, verschoben oder 
vergrößert/verkle inert werden. 
Sie können beliebig Text in Ihr Bild 
einfügen, Bilder im Speicher und 
auf Kassette/Diskette ablegen und 
sie in Ihren eigenen Programmen 
verwenden. Wenn Sie den Grafik¬ 
editor abgetippt (vor dem ersten 
Testlauf abspeichern, da Maschi¬ 
nensprache verwendet wird, und 
so das ganze Programm durch ei¬ 
nen Fehler vernichtet werden 
könnte!) und alle Fehler korrigiert 


haben, starten Sie ihn mit RUN. Auf 
dem Bildschirm baut sich die Titel¬ 
grafik auf, und Sie können wählen, 
in welchem Bildschirmmodus Sie 
arbeiten möchten. Drücken Sie ein¬ 
fach 0,1 oder 2. Anschließend fragt 
das Programm, ob Sie die Farben 
ändern möchten. Wenn nicht (N), 
dann erscheint direkt der leere 
Bildschirm mit dem blinkenden 
Cursor in der Mitte, und Sie können 
zeichnen. Andernfalls, wenn Sie 
mit J(a) geantwortet hatten, können 
Sie jede einzelne Farbtaste mit ei¬ 
ner beliebigen Farbe belegen. 
Drücken Sie Z oder X, um die Far- 
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ben am Bildschirmrand zu ändern, 
wenn Sie ENTER drücken, wird der 
angezeigten Taste diese Farbe zu¬ 
gewiesen. Denken Sie daran, daß 
die erste Taste für die Farbe des 
Hintergrunds zuständig ist. 

Wenn Sie sich im Zeichenmodus 
befinden, haben Sie folgende Kom¬ 
mandos zur Verfügung: 

Die Tasten des 10er Blocks bewe¬ 
gen den Cursor (den kleinen blin¬ 
kenden Punkt) in die entsprechen¬ 
de Richtung, also z.B. 7 nach links 
oben, 2 gerade nach unten. Die 5 
hat keine Funktion. Sie können mit 
dem Cursor auch über bereits Ge¬ 
maltes fahren, ohne daß dieses ver¬ 
ändert wird. 

Die Leertaste zeichnet in der ge¬ 
rade gewählten Farbe, wenn Sie 
zusammen 

Cursorblocks zusammen ge 
drückt wird. 

L zieht eine Linie. Der Start¬ 
punkt der Linie wird fest¬ 
gesetzt, wenn Sie das 
erste Mal L drücken. 

Beim zweiten Druck / 
wird die Linie von / ^o 0 'cw 

Mo r o 




«o Mt t> 4 *o o 4, M°. Ns s, 




nten i-aroe, wenn bie / 
mit einer Taste des / ••SS 0 " r 

ks zusammen ae- / ** j-.N* 
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diesem Startpunkt zur augenblick¬ 
lichen Position des Cursors gezo¬ 
gen. Die Lime hat die augenblick¬ 
lich angewählte Farbe. 

K zieht einen Kreis in der augen¬ 
blicklich angewählten Farbe. Der 
erste Druck auf K setzt den Kreis so, 
daß der »Kreis durch die augen¬ 
blickliche Cursorposition läuft.« 
Wird das zweite K zusammen mit 
SHIFT gedrückt, wird der Kreis 
ausgefüllt gezeichnet. 

Q zeichnet ein Quadrat in der au¬ 
genblicklichen Farbe. Der erste 
Druck auf Q spezifiziert die obere 
linke, der zweite Druck die untere 
rechte Ecke. Das Quadrat wird aus¬ 
gefüllt gezeichnet, wenn das zweite 
Q mit SHIFT gedrückt wird. 

T druckt den Text, den Sie nach 
dem T eingeben, an die augen¬ 
blickliche Cursorposition. Der Text 
hat die augenblicklich angewähl¬ 
te Farbe. Nach dem letzten Buch¬ 
staben muß ENTER gedrückt wer¬ 
den, um das Kommando zu been¬ 
den. Die CLR und DEL, überhaupt 
alle Kontrolltasten ergeben nur Zei- 
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Ein dunkler, nebliger Novemberabend im Jahre des Herrn 1690. Ein ein¬ 
samer Reiter auf einem engen Hohlweg. In der Ferne die spärlichen Lich¬ 
ter eines kleinen Dorfes. Nur das müde Stampfen des Pferdes ist zu hö¬ 
ren. Plötzlich eine Bewegung im Dickicht — zerlumpte, wilde Gestalten 
stürzen sich auf den Reiter. Der Kampf dauert nicht lange, zu groß ist die 
Übermacht der Fremden. Der Reiter wird niedergeschlagen, alles wird 
dunkel um ihn. Als er mit dröhnenden Kopfschmerzen wieder erwacht, 
befindet er sich in einem hohen, offensichtlich schon lange nicht mehr 
betretenen Raum, und er erinnert sich an den letzten Satz des Anführers seiner Fänger: „Befreie uns von dem Dämon, und bringe uns Beweis für seinen Tod — er oder du ...”. 
Sicherlich eine ganz gewöhnliche Geschichte, wie sie jeden Tag passiert, und die einen auch nicht besonders interessiert. Außer natürlich, wenn man einen Schneider 
CPC sein eigen nennt, und wenn man das Grafikadventure DARK POWERS gekauft hat. Dann ist man nämlich selber der betreffende Herr mit den Kopfschmerzen und hat 
die schaurig schöne Aufgabe vor sich, einen Vampir killen zu müssen. 

Dark Powers ist ein Grafikadventure. Aber es hebt sich vor allem durch zwei Eigenschaften anderen Programmen dieses Genres gegenüber heraus: Es versteht DEUTSCH, d.h. 
also, Befehle wie TÖTE VAMPIR werden ohne Komplikationen verstanden, und es hat eine TOP-GRAFIK. 

Jeder Raum, in dem man sich befindet (wieviele es genau sind, konnte ich noch nicht herausfinden) wird als Bild in den oberen zwei Dritteln des Bildschirms dargestellt, 
im letzten Drittel steht dabei der Text. Das Programm versteht sehr viele Worte und hat sogar auf so sinnlose Eingaben wie ESSE SCHRANK eine passende Erwiderung 
bereit. 

Im Gegensatz zu manchen anderen Adventures, wo der Spieler tagelang daran herumknobelt, wie er aus dem ersten Raum herauskommen soll, kann man bei Dark Powers 
überall herumwandern und sich umsehen (und das im wahrsten Sinne des Wortes, da man ja von seiner Umgebung das entsprechende Bild sieht), vorausgesetzt, man 
hat erst mal den Hauptschlüssel gefunden — was allerdings nicht besonders schwierig ist. Schwierig wird es erst später, z. B. wenn es dunkel wird. Dann wird nämlich 

jemand (Sie können sich sicher denken, wer) ungewöhnlich durstig. Auch 
sollte man sich nicht zuviel Zeit damit lassen, den Vampir zu finden, weil 
einen nämlich schon am zweiten Spieltag ein Blick in den Spiegel 
belehrt, daß die eigenen Schneidezähne auch schon länger geworden 
sind . . . 

Und wenn man dann erst mal die diversen Werkzeuge wie Kreuze, 

Knoblauch, Silberpfähle etc., die ein professioneller Vampirjäger nun 
mal braucht, zusammen hat, dann scheint der Vampir nicht besonders 
begeistert von dem Plan zu sein, sich töten zu lassen . . 
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Nur als Diskette lieferbar 

Versandwunsch bitte angeben: O Bargeld liegt bei 

O Verrechnungsscheck beigefügt O per Nachnahme 
Bei Versand per NN werden 5,— DM Versandkosten pauschal 
erhoben 
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die Farben andern und das Bild, 
an dam man vorher gearbeitet hat¬ 
te. aus dem Speicher wieder auf 
den Bildschirm holen, vorauage- 
sota nanirhch. man hat es vorher 
m« A Abgelegt 

M« S kann man einen quadrati 
sehen Bitdauachrutt verschieben 
Dazu muß das Quadrat wie beun 0- 
Befehl festgelegt weiden (zweimal 
S drucken), und anschließend muß 
1 oder 2 gedruckt werden, uro zu 
bestimmen, ob nach oben oder un¬ 
ten verschoben werden soll Es 
wird jeweils um eine Pixel-Reibe 
verschoben 

Mn Z und SH1FT kann man einen 
Biidsciurmbe reich an eine andere 
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Stelle kopieren, bzw. vergrö¬ 
ßern/verkleinern. Dazu muß der 
Bildschirmbereich, der kopiert 
werden soll, durch zweimaliges 
Drücken von SHIFT und Z festge¬ 
legt werden. Dann auf dieselbe 
Weise der Zielbereich. Wenn der 
Zielbereich genauso groß ist wie 
der ursprüngliche,wird nur ein Du¬ 


plikat desselben hergestellt. Sonst 
wird der ursprüngliche Bereich so 
vergrößert oder verkleinert, daß 
er in den neuen Bereich hinein¬ 
passt. So kann man z.B. einen Pro¬ 
grammtitel in die untere Ecke des 
Büdschirms schreiben (mit T), und 
ihn dann mit dem Schift & Z (Zoom)- 
Kommando auf die ganze Bild¬ 


schirmbreite (und/oder Höhe) 
„aufblähen“. 

R ändert die Farbe des Bild¬ 
schirmrandes. Es funktioniert an¬ 
sonsten genauso wie das Z- 
Kommando (Zeichenfarbe). 

P ändert die dem Hintergrund zu¬ 
gehörige INK. Nach P eine entspre¬ 
chende Farbwahltaste drücken. 


1560 GOTO 1530 
1570 END 

1580 -farbe=ferhe+1:IF farbe>=24 THEN farbe=l 

159Q INK 1, -färbe: INK 2,-f arbe+1: INK 3, farbe+2: RETURN 

1600 IF fIag=l THEN i 1ag=0: i arbe=TEST(xpo,ypo):PLOT xpo,ypo,RND*3:RETURN 

1610 flag=l:PLOT xpo, ypo,-färbe: RETURN 

1620 PLOT xpo, ypo,-färbe: xpo=xpo+x: ypo-ypa+y 

1630 IF xpa>640 THEN xpa*=0 ELSE IF xpo<0 THEN xpa=640 

1640 IF ypa>400 THEN ypo=0 ELSE IF ypa<0 THEN ypo=400 

1650 IF INKEY (47) < >0 AND (JOY(O) AND 16)016 THEN 1670 

1660 PLOT xpo,ypo,afarbe 

1670 x=0: y=0:-f arbe=TEST (xpo, ypo) 

1680 RETURN 

1690 REM Zeitschi ei-f e 

1700 FOR t = l TO 500:NEXT:-farbe=a-f arbe: PLOT xpo, ypo, -färbe: x=0: y=0:RETURN 

1710 REM Bestaetigungston 

1720 SOUND 1,400,50,15,1:RETURN 

1730 REM-Schieben- 

1740 IF x alt=-l THEN xal t=xpo: yal t*?ypo: GOSUB 171O:G0T0 1690 
1750 b$="":FOR t=i TO 100:b$=b*+INKEY$tNEXT 

1760 a*=INKEY*:IF a*=”” THEN 1760 ELSE IF a*<>"l" AND a*<>"2" THEN 1760 

1770 G05UB 1710 

1780 IF a$="2" THEN 1820 

1790 FOR y=ypo+yadd TO yalt STEP yadd 

1800 FOR x=xalt TO xpo STEP xadd 

1810 a=TEST(x,y):PLOT x,y-yadd,a:NEXT x,y:xalt=-l:GOTO 1860 

1820 FOR y=yalt TO ypo STEP -yadd 

1830 FOR x=xalt TO xpo STEP xadd 

1840 IF TEST (x , y) < >0 THEN PLOT x,y,a-farbe 

1850 NEXT x,y:xalt=-l 

1860 a*=INKEY$ 

1870 IF a$="1" THEN 1790 
1880 IF a$="2" THEN 1820 
1890 GOTO 1690 

1900 REM-Bild in internen Speicher- 

1910 GOSUB 1710:CALL &6200;FDR x=l TO 5:M0DE modussFOR t=l TO 50:NEXT:CALL&620C 
:FOR t = l TO 50:NEXT:NEXT:GOTO 1690 

1920 REM-Bild aus internen Speicher- 

1930 GOSUB 1710:MODE modus:CALL &620C:G0T0 1690 
1940 REM Bildschirm ausdrucken 
1950 GOSUB 1710 

1960 IF modus=0 THEN s=4 ELSE IF modus=l THEN s=2 ELSE s=l 
1970 PRINT #8,CHR$(27)"A"CHR$(7) ; 

1980 y=399 
1990 x=0 

2000 WHILE (x<639) AND (INKEY(18)<>0) 

2010 z=128:z(x+160)=0:z(x+161)=0 
2020 FOR yl=y+2 TO y-12 STEP -2 
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Die Wanze 


im Computer 


Diese Folge zeigt, wie man anderen Programmen eine ’Wanze’ unterjubelt. 

Macintosh- oder Atari 520-Käufer haben es gut: Sie können eine Hardcopy von jedem laufenden Pro¬ 
gramm machen, einfach so auf Knopfdruck. Und davon können Schneider-User nur träumen. Doch damit 
so etwas auch auf den CPCs geht, werden wir eine Wanze in den Computer schmuggeln. Sie soll vorher 
eingeladen werden und dann solange mit dem Benutzerprogramm im Speicher ’hocken’, ohne es zu stören, 
bis sie durch irgendein Ereignis, z.B. einen Tastendruck, aktiviert wird. Dann soll sie die Kontrolle über¬ 
nehmen. 


Screensave 


In unserem konkreten Fall soll 
die Wanze ein Abbild des Bild¬ 
schirms auf Kassette/ Diskette 
schreiben. Dieses Bild könnte 
dann z.B. von einem Hardcopy- 
Programm weiterverwendet wer¬ 
den. Aber jetzt tun sich einige Pro¬ 
bleme auf: Wo soll das Programm 
stehen, wie soll es aktiviert wer¬ 
den? Für die Ort- Frage gibt es 
mehrere Lösungen: Man könnte 
überprüfen, in welche Adressen 
das Benutzerprogramm lädt, und 
dann die Wanze darüber oder 
darunter positionieren. Dann be¬ 
steht aber die Gefahr, daß die 
Wanze durch Daten des Benutzer¬ 
programms evtl, zerstört wird. Es 
gibt aber auch noch andere Mög¬ 
lichkeiten, das Programm 'ver¬ 
schwinden' zu lassen (siehe Li- 
sting). Bezüglich der Aktivierung 
ist man einerseits zwar völlig frei: 
Ob Taste, Joystick, nach einer Zeit¬ 
spanne oder was auch immer: 
Man kann alles mögliche verwen¬ 
den, um das Programm zu aktivie¬ 
ren. Andererseits sollte man aber 
die Verwendung von Firmware- 
Routinen, wie z.B. Tastenabfrage, 
vermeiden, da das Programm 
über Interrupt aufgerufen wird 
und die Firmware-Routinen eben¬ 
falls unterbrechbar sind. 


Über Interrupt 


Die Wanze wird in die Interrupt- 
Liste des Schneider- Betriebssy¬ 
stems eingebunden, und kann 
dann erst einmal vergessen wer¬ 
den. Sie fragt ab jetzt regelmäßig 
die Tastatur ab, und zwar direkt 
über den Port (Firmware-Routinen 
sollte man nicht unbedingt ver¬ 
wenden): KTEST erledigt das. 
Wenn nicht die entsprechende Ta¬ 
stenkombination (CTRL-COPY) ge¬ 
drückt ist, passiert gar nichts, die 
Wanze gibt die Kontrolle wieder 
an das Betriebssystem zurück. 
Wenn aber die Wanze aktiviert 
wird, dann schlägt sie auch gleich 
wie mit dem Dampfhammer zu: 
Die Firmware-Indirections werden 
so geändert, daß bei deren näch¬ 
stem Aufruf die SAVE-Routine an¬ 
gesprungen wird, auch hier kön¬ 
nen wir die SAVE-Routine nicht 
einfach sofort ausführen, da die 
Wanze ja noch in der Interruptket¬ 
te abgearbeitet wird. Sobald das 
Anwender-Programm nun irgend¬ 
eine der gepatchten Betriebs¬ 
system-Funktionen ausführen will, 
springt es stattdessen zu SAVE. 
Der Bildschirm wird abgespei¬ 
chert und die alte Sprungtabelle 
wiederhergestellt. Sollte das Pro¬ 
gramm allerdings selbst etwas 
verändert haben, wird es jetzt 
nicht mehr korrekt laufen. Auch 
wird bei diesem Prozess automa¬ 
tisch auf Kassettenbetrieb umge¬ 
schaltet, da JUMP-RESTORE ja die 
Werte für die Kassettenverwaltung 
und nicht für das DOS einträgt. 
Dieses müßte wieder neu initiali¬ 
siert werden, was aber nicht ganz 
einfach ist, da man ihm Speicher¬ 


platz zuweisen muß. Keine einfa¬ 
che Aufgabe, weil die Wanze ja 
nicht weiß, wo das Anwenderpro¬ 
gramm steht. Also haben wir uns 
mit der einfacheren Lösung zufrie¬ 
den gegeben. Ansonsten ist das 
Programm so simpel aufgebaut, 
daß man sich weitere Kommentare 
sparen kann. Probieren Sie es aus, 
und stellen Sie eigene Wanzen- 
Kreationen her. Eine Möglichkeit 
für die Auslösung wäre z.B. der 
Betriebssystem-TIME-Zähler oder 
eine Drucker- oder Floppy-An- 
meldung. 


Nicht alle 
Programme 

.. . sind unterbrechbar. Pro¬ 
gramme, die überhaupt keine 
Firmware-Indirections benutzen, 
zum Beispiel. Allerdings werden 
solche Programme wohl sehr sel¬ 
ten auftreten, da ja auch schon die 
Standard-Ein/Ausgabe über die 
Firmware-Sprungtabelle läuft. 
Ebenfalls nicht unterbrechbar 
sind Programme, die direkt in die 
ROM- Routinen springen, ohne die 
Tabelle zu benutzen. Solchen hart¬ 
näckigen Fällen kann man nur bei¬ 
kommen, indem man das Pro¬ 
gramm selbst von der Wanze ver¬ 
ändern läßt, aber das ist schon 
reichlich kompliziert. Denn dazu 
braucht man als Mindestausstat¬ 
tung schon einen Disassembler 
und entsprechende Maschinen¬ 
sprache-Kenntnisse. tmb 
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In einem solchen Hex-Listung kann die Wanze versteckt sein. 


fUl I «fforii 00 

10 |l IHN VaniM «atirichildit «Ich i* lall Finktia *o« dar I« 
20 |l Tut kaickritbiiia Viniani 
30 | 

40 J- I« aairrf «IM latriitiiyitia-liMtlM iur Tiititur illngi 
SO i- «araaadit, In tat Uguiatr hu ml uiiulirt P'cgrta- 

•0 |* ilirirul« 

TO | 

10 I* 41« Olikitt« »Ir4 deck im faltialiilrt, ««ckdi« dli UrtH 
10 |- Tdttlla tau ktr|iitillt turdi liiika UVE1 
100 | 

110 | dl* tdiaildfr-kiBii 

120 | ipaickart li Idtcklr« kal C1B.-C*» 

ISO | 


•000 


140 

erg 1*000 

|lrga«dao, Init atrd aur linul gatrjucM 



130 | 



•000 

2187IC 

140 lllltl 

Id kl,lt>ca7 

lAdr.ii« SOU«JESET 

I00S 

0401 

170 

Id fe.ll 

1 11 toundrout lata durcl Id 

•003 

34C1 

IB0 lli 

Id Ikll.icl 

|RCT, llt all«« aur aoitig, 

• 007 

23 

110 

lnc kl 

l»tnn Fregriaa 1« Souadpaffar 

•OOS 

23 

200 

Ine hl 

lltlht, ua tu airhindira 

•001 

23 

210 

ine hl 

1 das a( aibirichrltbtn alrd 

•00k 

I0f9 

220 

djm 11 

■Jatit lied all« lound-roatli ko 

«ooc 

21 IAEA 

230 

Id hl,block 

iJttit ia IntarripHtatta 

•OOF 

C0E3BC 

240 

Citl lbc*3 

idatiadan: H.«DD.FAST.Tia£l 

*012 

C9 

230 

r*t 

t kimi hat (ick aingrniitat.... 



240 ; 



Ul« 


270 

org Ibfill 




2B0 | Mann 

sitxt ia Soundpulfar 1464!!!! 



210 ; J«d( «drin* llt «oigUch, 

taan aia du 



300 1 An»indirprogrj«a nicht ualfrlappt 



310 ; 



Ulk 

0000 

320 block! 

dil« 0 

llntarrupttlock 

UIC 

0000 

330 

dal« 0 

;fu«r du latriabiiyslaa 

16IE 

00 

340 

dafb 0 


Ulf 

B) 

330 

dafb 4SI 


»420 

2584 

340 

dala ktait 

lidrcii* intarrugt.roati 

»472 

OO 

370 

d«(b 0 


1423 

0000 

3B0 

d(<» 0 




390 ] 



1423 

00 

400 ktlft: 

nop 

; an diu« Stdlld keaat all «El 

U24 

FI 

410 

pulh *1 

:ia«t ragiftar... 

1427 

CI 

420 

push bc 


1426 

3£09 

430 

Id 4,9 

icepi tuta 

142« 

[DIESE 

440 

C4ll ihhl. 

;ka_tait.k*r 

»420 

2004 

430 

jr nr.Found 


I42F 

CI 

460 kt: 

pop bc 


8130 

Fl 

470 

POP 4f 


1431 

FB 

4 EG 

ai 


»432 

[9 

490 

r«l 



8433 

F3 

300 (ound: 

dl 

|lur Sicherheit 

1434 

CB79 

310 


tit 7,c 

1 CTRL gtdrutcH? 

8434 

28F7 

320 


jr i,ka 

(niin, RET 

8438 

3EC9 

330 


Id i.lcl 

; RET 

143« 

322314 

540 


Id Iktiitl.j 

;nochailigan Auiru* »irhindire 

8430 

04IC 

130 


Id b.lEB 

lallt latriibu*lta««oroanga 

143F 

1371C 011 

560 


Id u.lbbOO 


1443 

213C14 

3)0 

Id 

11,UT* 


1444 

ibuoea 

310 13i 

14 

li4l,4cJ 

|1F 

1444 

187301 

310 

14 

11**11,1 


>443 

107482 

4M 

14 

111*21,8 


1111 

■ 073 

418 

Im 

II 


1432 

002! 

428 

i«c 

ii 


1434 

107! 

tu 

Ut 

n 


1434 

I0CE 

410 

Uu 17 


1438 

CI 

130 

>00 

kc 


1434 

Fl 

440 

fop 

<1 


1434 

Fl 

110 

■i 



1431 

CI 

400 

nt 





HO i 




I43C 

011)10 

700 uh: 

Cll II 1447’ 

; juap mtort 

I43F 

114800 

710 

14 

41,140 

irubiu 

1447 

718CIC 

720 

14 

m ,uc 80 

;rnla 

1443 

C0CI1C 

730 

call Ikttl 

[Cl._ion.a6i«, ult tt« 

1441 

0401 

HO 

14 

k.< 

llirr^f dil.MH 

1444 

711114 

230 

! d 

61. »II« 


1440 

lioc8« 

240 

14 

4*.8 


B670 CDBCBC 

770 

call IfccBc 

;ca*_out_ooan 

8673 2100C0 

7B0 

Id hl.Ic 000 

iscraan 

B676 11FF3F 

790 

ld de,I3fFf 

; 16k 

B679 010000 

800 

ld bc,0 

;lain jtart 

B67C 3C02 

B10 

ld a,2 

jbinaer 

I67E CD9BBC 

820 

call Ibc98 

;cas_out_direct 

8681 CD0FBC 

830 

call ibcBf 

jcai.out.closa 

16B4 AF 

MO 

«or i 

:a=0 

B6B5 322586 

BIO 

ld (ktastl.i 

urnautes aufrufan »oegluh 

B6BB C9 

860 

rat 

izuaruack ;u» pregrar 


870 ; 



»489 42494C44 

880 nut: 

dafi •BILD’ 


B66D 093 

890 m: 

nop 


Pass 2 arror*; 

00 



Tibia usad: 

119 iro« 

365 
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Label Drucker 

Kennen Sie den ’WIMP-Satz 5 ? Dieser Satz (Wo-Ist-Mein-Programm) besagt, daß ein gesuchtes Programm 
immer auf der letzten Diskette ist, auf der man nachsieht, gleichgültig, in welcher Reihenfolge man die ein¬ 
zelnen Disketten überprüft. 


Das hat teilweise zwar auch ganz 
angenehme Begleiterscheinun¬ 
gen, z.B. daß man immer wieder 
Programme auf seinen Disketten 
entdeckt, die man schon total ver¬ 
gessen hatte, kann aber auf die 
Dauer doch auf die Nerven gehen. 

Für alle CPC 464/664 - User ha¬ 
ben wir deshalb eine Lösung ent¬ 
wickelt: Den Label-Drucker, mit 


dem man den Disketteninhalt, den 
Namen der Diskette und ihre 
Nummer zu Papier bringt, und 
zwar gleich in der richtigen Größe 
zum ' Hinte r-die-Hülle-klemmen’. 

Das Programm wurde für einen 
Star-SG 10 Drucker geschrieben, 
sollte daher auch auf den neueren 
Epson-Druckern laufen. Es dürfte 


aber auch nicht schwer sein, mit 
Hilfe der Kommentare im Pro¬ 
gramm und dem eigenen 
Drucker- Handbuch die entspre¬ 
chenden Programmzeilen an den 
eigenen Drucker anzupassen. 
Nun, zur Bedienung gibt es auch 
nicht viel zu sagen, deshalb: Viel 
Spaß beim Ausschneiden! 


ICPM—Master 


OO 


10 

20 

30 

40 

50 

GO 

70 

ÜT 

BO 

SO 


REM 

REH 

REN 

REN 

REN 


4»*»«t*t***tW«t***'.**'**t*W****»*4t«t**** 

Disketten Labler mm 

***•■ v/nn Thnmn<=: M R-i n7i nnor *#*■ 


INK'0,13:INK 1,0:BOEDER 13:N0DE 2 
OPENOUT "d":NENORY HINEN-1:ba=HINEN+204B:CLOSED 


|Seite Ai 
I .HEI 

IAHSDOS.COM 

IB00T6EN.C0H 

ICLOAD.COM 

! CSAVE.COM 

1DISCCKK.COM 

I DUMP,ASM 

iED.COH 

1EX2.BA5 

'.FORMT. CDU 

ILOAD.COM 

IPIP.COM 

:SETUP.COM 

! SUBHIT.COM 

IISUB.COM 


,PRN 

ASH.COM 

CHKD1SC.COM 

CDPYDISC.COM 

DOT.CDM 

D1SCC0PY.COM 

rUMP.COM 

Eil.BAS 

FILECOPY.COM 

EEBE.TIT 

MOVCPH.COM 

ROINTIHE.DEM 

STAT.COM 

SYSBEN.COM 


| Seite B: 

I AHSDOS.COM L0G0.C0M 
I OSPIRALE.LOE SETUP.COM 
: STERN.LOS 


DIN s£CG53,sa£CB5D,sbSCGSD 

PRINT”Label Drucker von Thomas N.Binzinger, 13B 
B by CONPUTER TEAN!”:PRINT 

100 INPUT "Bitte legen Sie die Diskette mit Seite 
A ein, druecken Sie ENTER ”,n£ 

110 GÜSUB 450 'Inhalt in s£C64D 

120 x“l: UJHI LE s$CxK>"” AND x<>64: saSCx^sSCx) : x-=x 
+1:UEND 

130 FÜR y=x TG 64:saSCy)=SPACE£C12):NEXT 

140 INPUT "Bitte legen Sie die Diskette mit Seite 

B ein, druecken Sie ENTER ”,n£ 

150 GDSUB 4S0 

IGO x = l: IdHILE s£Cxl<>”” AND x<>64:sbSCx^sSCx):x“x 


+ 1: LüEND 

170 FÜR y=x TO 64:sbSCy)=SPACE£C12) :NEXT 
1BO CLS #1:PRINT”Diskette komplett gelesen.” 

ISO INPUT "Bitte geben Sie nun eine zwei-stellige 
Diskettennummer ein:",dn£ 

200 IF LENCdn£D<>2 THEN PRINT”Bitte ZWEI Stellen!” 
:GOTO 130 

210 PRINT "Bitte geben Sie den Diskettentitel ein 
: "STRING2CIO, " . "DSTRINGSC10,8); 

220 INPUT ””,dt£:IF LENCdtS)>10 THEN PRINT"2u lang 
!”:GOTO 210 
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E30 INPUT "Bitte druecken 5ie ENTER wenn der Druck 
er bereit ist. ”, n$ 

840 LüIDTH 855 

850 PRINTttB, CHRSC27) ”A”CHR$CB^CHR$C87V , 8''; 'Line s 
Pacing auf B 

860 PRINT ttB,CHR$ C 87)”7”; 'Euer STAR SB-10 in IBN- 
riode 

870 PRINT ttB,CHR$C15); ’Komprimierte Schrift ein 
8B0 r$=CHR£C124) 'senkrechter 5trich 
830 leer$-r$+STRING$C53,38)+r$ 

300 IF LENCdtSXlO THEN dt$=dt$+STRINGSC10-LENCdtS 
” ) 

310 PRINTttB,CHRSC27)”6”; ’Doppeldruck ein 
380 exa$ =s CHR$ClB)+CHR$(27) + ”Lll ” ’Breitschrift-ein 

Code 

330 exo$*CHR$C27) + ”UJ0”+CHRSC15) ’ Breitschrif t-aus 
Code 

340 PRINTttB,r$;STRINGSC53,”-”);r£ 

350 PRINT ttB,r$;” ”;exa$;dt$; ” ”;dn$;exo$;” 

r$ 

360 PRINT#B,r$;STRINGS(53, ) ;r$ 

370 PRINTttB.rS;"Seite A:"STRINGSC1B,” ”) ; r$;” Seit 
e B:”;STRINGSC17,” ”)r$ 

3B0 IF sa$C61)“SPACESC 183 AND sb$CBl) “SPACESC12) T 
HEN lzahl=62:PRINT ttB,r$;STRINGSC 86,32);r$;STRINGS 
C86,38);r$ ELSE lzahl=64 
3S0 FOR x-1 TO lzahl STEP 8 

400 PRINTttB,r$;sa$(x)” ”sa$Cx+D” ”r$" ”sb$Cx)” ”s 
b$Cx+l);r$ 

410 NEXT x 

480 PRINTttB , r$;STRINGS(53, ”-”); r$ 

430 CLS:GOTO 30 
440 END 

450 U1IND0U1 ttl,1,80,10,25 
460 UINDOU SUAP 0 , 1:CLS:CAT 
470 c=1000 

4B0 ad=ba: ÜJHILE c<>0 AND CPEEKCad ) <32 OR PEEKCad)> 

30): ad=ad+l: c=c-l : UJEND 

430 IF c=0 THEN 610 

500 p=ad : z=l: lüHILE PEEKCpDOO 

510 s$Cz)=””:x=p 

580 FDR x~p TO p+10 

530 s$Cz)=s$Cz)+CHR$(PEEKCx)) : POKE x,0:NEXT 
540 p=p+14 

550 s$Cz)=LEFT$Cs$Cz) ,8) + ’’. ”+RIGHT$Cs$Cz) , 3) 

5B0 a=INSTR(s$(z) ,” ”):IF a=0 THEN 600 
570 IF a> I NSTR C s$Cz),".”) THEN 600 

5B0 s£(z)=LEFT£(s$(z), a-D + RIGHTSCsSCz),LENCsSCz))-a)+” ” 

530 GOTD 560 

600 z=z+l:UJEND 

610 UINDDU SUAP 0,1 

620 sSCz)=””:RETURN 
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Ist es Ihnen auch schon einmal 
passiert, daß Sie am Computer ge¬ 
arbeitet und darüber die Zeit ver¬ 
gessen haben? Mit Hilfe dieses 
Programms können Sie nun den 
Rechner jederzeit nach der Uhrzeit 
fragen oder sich auf wichtige Ter¬ 
mine aufmerksam machen lassen. 

Nach dem Start dieses Pro¬ 
gramms stehen Ihnen die folgen¬ 
den sechs zusätzlichen Befehle zur 
Verfügung: 

:CLOCKSET, (Stunden),(Minu¬ 
ten),(Sekunden) 

Die implementierte Uhr wird ein¬ 
gestellt. 

:CLOCKON 

Die Uhr wird am oberen Bild¬ 
schirmrand angezeigt. 

:C10CKOFF 

Die Uhr wird nicht angezeigt, 
läuft jedoch weiter. 

:CLOCKRES 

Die Uhr wird nicht mehr ausgeru¬ 
fen und kann auch durch die ent¬ 
sprechenden Befehle nicht mehr 
aktiviert werden. 

:BELLSET, (Stunden),(Minuten) 

Der Wecker wird eingestellt und 
aktiviert. 

:BELLOFF 

Der Wecker wird ausgeschaltet. 

Dabei sind einige Dinge zu be¬ 
achten: 

Der Doppelpunkt vor dem Befehl 
stellt das Zeichen über dem „Klam¬ 
meraffen“ dar. 

Werden bei einem Befehlsaufruf 
zu viele oder zu wenige Parameter 
angegeben, so wird dieser nicht 
ausgeführt. 

Das Programm sollte nach dem 
Abtippen zunächst aufgezeichnet 


10 MEMORY &9FFF:GOSUB 240:CALL &A000 
20 !CLOCKOFF 
30 MODE 2 
40 PRINT 

50 PRINT TAB(22);CHR$(24);" Digital Background 
Clock ";CHR$(24)" 

60 PRINT 

70 PRINTTAB(30) ; "by THBCS" 

80 PRINT:PRINT 

90 INPUT"Time <HH:MM:SS>? ",t$ 

100 doppl=INSTR(t*,":"):dopp2=INSTR(doppl+1,t*," 
: "> 

110 IF doppl*dopp2=0 THEN 90 
120 std=VAL(LEFT*(t*,doppl-l)) 

130 IF std >23 OR std<0 THEN 90 

140 minuten=VAL(MID$(t$,dopp1+1,dopp2—doppl—1)) 
150 IF minuten>59 OR minuten<0 THEN 90 
160 sec=VAL(RIGHT*(t$,LEN(t$)-dopp2>) 

170 IF sec>59 OR sec<0 THEN 90 

180 !CLOCKSET,std,minuten,sec 

190 !CLOCKON 

200 CLS 

210 NEW 

220 ' 

230 ' *** Hexlader *** 

240 PRINT"PLEASE WAIT ..." 

250 DEFSTR c 
260 DEFINT i,j 
270 DIM c(20) 


280 

c ( 

0) 

="CD 97 Al 01 

OC AO 

21 

4E 

AO 

C3 

Dl 

BC 

2 


0 

AO 

C3 44 Al C3 4D 

Al" 








290 

c ( 

1) 

="C3 56 Al C3 

6C Al 

C3 

73 

Al 

C3 

8B 

Al 

4 


3 

4C 

4F 43 4B 4F CE 

43" 








300 

c ( 

2) 

="4C 4F 43 4B 

4F 46 

C6 

43 

4C 

4F 

43 

4B 

5 


3 

45 

D4 43 4C 4F 43 

4B" 








310 

c ( 

3) 

="52 45 D3 42 

45 4C 

4C 

53 

45 

D4 

42 

45 

4 


C 

4C 

4F 46 C6 00 61 

66" 








320 

c ( 

4) 

="00 OC 00 00 

00 00 

00 

01 

3A 

52 

AO 

F5 

3 


A 

53 

AO 47 Fl 3C 32 

52" 
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werden, um bei einem möglichen 
Absturz des Rechners einen Ver¬ 
lust desselben (des Programms na¬ 
türlich) zu vermeiden. 

Der Befehl NEW sollte erst dann 
in das Programm eingefügt wer¬ 
den, wenn dieses vollkommen kor¬ 
rekt abgetippt ist. 

Wenn die eingestellte Weckzeit 
erreicht ist, dann klingelt der Rech¬ 
ner für die Dauer einer Minute, 
wenn nicht vorher der Befehl 
:BELLOF eingegeben wird. 

Der Befehl :CLOCKRES sollte 
dann angewandt werden, wenn 
man den Speicherbereich ab 
&AOOO ändern will, da sonst der 
Rechner abstürzen kann. 

Die BASIC-Funktion TIME wird 
durch die Uhr nicht beeinflusst. Je¬ 
doch werden beide Uhren für die 
Dauer von Cassettenoperationen 
angehalten, da diese Vorrang ha¬ 
ben. tb 



330 

c 

( 5) 

= " AO 

FE 

3C 

20 

27 3E 

00 

04 

32 

52 

AO 

78 

3 


2 

53 

AO F5 

3A 

54 

AO 

47" 








340 

c 

( 6) 

= "F1 

FE 

3C 

20 

13 3E 

00 

04 

32 

53 

AO 

78 

3 


2 

54 

AO FE 

18 

20 

05 

3E " 








350 

c 

( 7) 

= ”00 

32 

54 

AO 

3A 57 

AO 

FE 

OO 

C8 

FE 

02 

2 


8 

5E 

3A 57 

AO 

FE 

03 

CC" 








360 

c 

( 8) 

= "F8 

AO 

3A 

86 

B2 F5 

3A 

85 

B2 

F5 

3A 

8F 

B 


2 

47 

F5 3A 

90 

B2 

F5 

32" 








370 

c 

( 9) 

= "8F 

B2 

78 

32 

90 B2 

CD 

7E 

BB 

3E 

OC 

32 

8 


6 

B2 

3A 88 

B2 

32 

85 

B2 .. 








380 

c 

(10) 

= "3A 

54 

AO 

CD 

10 Al 

3E 

3A 

CD 

5A 

BB 

3A 

5 


3 

AO 

CD 10 

Al 

3E 

3A 

CD" 








390 

c 

(11) 

= "5A 

BB 

3A 

52 

AO CD 

10 

Al 

Fl 

32 

90 

B2 

F 


1 

32 

8F B2 

Fl 

32 

85 

B2" 








400 

c 

(12) 

= "F1 

32 

86 

B2 

CD 7B 

BB 

C9 

3A 

54 

AO 

47 

3 


A 

56 

AO B8 

CO 

3A 

53 

AO" 








410 

c 

(13) 

= ••47 

3A 

55 

AO 

B8 CO 

3E 

07 

CD 

5A 

BB 

C9 

5 


F 

F5 

C5 06 

00 

FE 

OA 

FA" 








420 

c 

(14) 

= "1F 

Al 

04 

D6 

OA 18 

F6 

F5 

78 

CD 

2B 

Al 

F 


1 

CD 

2B Al 

CI 

Fl 

C9 

FE" 








430 

c 

(15) 

“"OA 

38 

02 

C6 

07 C6 

30 

CD 

5A 

BB 

C9 

00 

0 


0 

00 

00 00 

00 

00 

00 

00" 








440 

c 

(16) 

= •*81 

58 

AO 

00 

3A 57 

AO 

F6 

01 

32 

57 

AO 

c 


9 

3A 

57 AO E6 FE 3: 

2 57!V 








450 

c 

(17) 

= "A0 

C9 

FE 

03 

CO DD 

7E 

04 

32 

54 

AO 

DD 

7 


E 

02 

32 53 AO DD 7E 00“ 








460 

c 

( 18) 

= ‘*32 

52 

AO 

C9 

21 37 

Al 

CD 

EC 

BC 

C9 

FE 

0 


2 

CO 

DD 7E 02 32 5 t 

b AO" 








470 

c 

(19) 

= “DD 

7E 

00 

‘T'-) 

55 AO 

3A 

57 

AO 

F6 

02 

32 

5 


7 

AO 

C9 FE 00 CO 3A 57" 








480 

c 

(20) 

= "A0 

E6 

01 

32 

57 AO 

C9 

21 

37 

Al 

11 

32 

0 


0 Ol 32 00 CD E9 BC C9" 

490 * 

500 DATA 2602,2588,1736,1846,1363 ,1934,1756,2209 
,3007,2500,2294 

510 DATA 2786,2673,2559,3003, 1202,2353,2444,2665 
,2284,2083 


520 ' 


530 

RESTORE 500 


550 

adr =2<A000 


560 

FÜR i=0 TO 20 


570 

c (i ) =*'00 l, +c (i ) 


580 

sum=0:READ prue-f summe 


590 

FÜR j=l TO 20 


600 

wert=VAL("&"+MID$<c( i > 

,3*j,2)) 

610 

POKE adr,wert 


620 

adr=adr+1 


630 

sum=5um+wert 


640 

NEXT j 


645 

IF 5um< >prue-f summe THEN 
" ; i; " > " :END 

PRINT"Fehl er 

660 

NEXT i 


680 

RETURN 
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Maussteuerung 

mit dem CPC 464 

Diese Befehlserweiterang für 
den Schneider CPC 464 ermög¬ 
licht die Simulation einer Maus. 

Da die Maus für die Schneider¬ 
computer zur Zeit in Deutschland 
noch nicht erhältlich ist, wurde 
der Joystick als Ersatz gewählt. 

'Wenn Sie Listing 1 fehlerfrei ab¬ 
getippt und gestartet haben, wird 
auf Cassette oder Diskette die Da¬ 
tei MAUS.BIN erzeugt. Dieses Pro¬ 
gramm können Sie mit MEMORY & 

9FFF LOAD "MAUS.BIN” CALL & 

AOOO starten. 

Ab diesem Zeitpunkt steht Ihnen 
der Befehl :MAUS,x,y zur Verfü¬ 
gung. Der Doppelpunkt vor dem 
Befehl stellt in diesem Fall das Zei¬ 
chen über dem Klammeraffen dar. 

Nach dem Aufruf des Befehls 
wird auf dem Bildschirm, an dem 
durch x und y definierten Punkt, 
ein invertierender Pfeil darge¬ 
stellt. Diesen können Sie mit dem 
Joystick beliebig über den Bild¬ 
schirm bewegen. Dadurch wird 
automatisch auch der Grafikcur¬ 
sor, welcher sich an der Spitze des 
Pfeils befindet, bewegt. 

Nach dem Drücken des Feuer¬ 
knopfes wird die Kontrolle wieder 
an das Programm übergeben; bzw. 
der Computer meldet sich mit 
Ready, wenn Sie den Befehl im Di¬ 
rektmodus eingegeben haben. 

Die Koordinaten des Grafikcursors 
stehen dann in XPOS und YPOS 
zur Verfügung. 

Da der Pfeil sich invertierend 
über den Monitor bewegt, wird 
das Bild durch die Bewegungen 
nicht zerstört. Man kann diese Er¬ 
weiterung zum Beispiel einsetzen, 
um anhand der Grafikcursor- 
Position festzustellen, auf welchen 
Punkt eines Menues der Pfeil 
zeigt, wodurch der Computer sich 
dann durch Laien leichter bedie¬ 
nen ließe. Der neue Befehl ließe 
sich auch in einem komfortablen 
Malprogramm einsetzen; ähnlich 
wie beim Apple Macintosh, (tb) 


10 

'Listing 1 








20 

* 








30 

'Hexlader fuer Maussteuerbefehl 





40 

'(nur fuer CPC 464 !!!) 








50 

' 








60 

' (c) by THBCS 








70 

MEMORY &9FFF 








80 

PRINT"PLEASE WAIT ...” 








90 

DEFSTR c 








100 

DEFINT i,j 








110 

DIM c(ll) 








120 

C( O > ="01 09 AO 21 13 AO 
7 AO 4D 41 55 D3 00 OO" 

C3 

Dl 

BC 

OE 

AO 

C3 

1 

130 

DATA 1964 








140 

C( 1>="00 OO 00 FE 02 CO 
D 66 01 DD 6E 00 CD 63" 

DD 

56 

03 

DD 

5E 

02 

D 

150 

DATA 2034 








160 

c( 2) = "AO D5 E5 CD 18 BB 
3 AO F5 E6 Ol FE 01 20" 

CD 

24 

BB 

El 

Dl 

CD 

6 

170 

DATA 3107 








1 BO 

c< 3)="02 23 23 Fl F5 E6 
B Fl F5 E6 04 FE 04 20" 

02 

FE 

02 

20 

02 

2B 

2 

190 

DATA 2176 








200 

c( 4)="01 1B Fl F5 E6 OB 
6 10 FE 10 CS 18 C3 F5" 

FE 

08 

20 

01 

13 

Fl 

E 

210 

DATA 2487 








220 

c< 5)="D5 E5 CD D6 AO 13 
0 13 CD D6 AO 13 CD D6" 

CD 

D6 

AO 

13 

CD 

D6 

A 

230 

DATA 3253 








240 

c( 6)="AO 13 CD D6 AO 13 
B 1B CD D6 AO 1B CD D6" 

CD 

D6 

AO 

2B 

2B 

1B 

1 

250 

DATA 2548 








260 

C( 7)="AO 1B CD D6 AO 1B 
6 AO 13 CD D6 AO 13 13" 

CD 

D6 

AO 

2B 

2B 

CD 

D 

270 

DATA 2673 








280 

c( 8)="CD D6 AO 13 CD D6 
3 CD D6 AO 1B 1B 1B 1B" 

AO 

2B 

2B 

CD 

D6 

AO 

1 

290 

DATA 2548 








300 

c( 9)="CD D6 AO 1B CD D6 
3 13 CD D6 AO 13 CD D6" 

AO 

2B 

2B 

13 

13 

13 

1 

310 

DATA 2383 








320 

c <10)="AO 2B 2B CD D6 AO 

1 C9 CD CO BB CD FO BB" 

13 

CD 

D6 

AO 

El 

Dl 

F 

330 

DATA 3515 








340 

c <11)="2F CD DE BB CD C6 
B C9 00 00 00 00 OO 00" 

BB 

CD 

EA 

BB 

CD 

C6 

B 

350 

DATA 2668 








360 

* 








370 

RESTÜRE 








380 

adr=&A000 








390 

FOR i=0 TO 11 








400 

c(i)="00"+c(i) 








410 

sum=0:READ pruefsumme 








420 

FOR j=l TO 20 








430 

wert=VAL<"&"+MID$(c<i>,3*j. 

2) ) 





440 

POKE adr,wert 








450 

adr=adr+l 








460 

sum=sum+wert 








470 

NEXT j 








480 

IF sum< >pruef summe THEI* 

PRINT 

"Fehler in c< 


"; i;")":END 








490 

NEXT i 








500 

SAVE "maus, bin" , b , &A000 , &EA, ScAOOO 





510 

PRINT“MAUS.BIN ist abgespeichert" 
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Atari- 

Maus 

am 


CPC 



Im Gegensatz zu vielen anderen 
Computern liefern die Schneider¬ 
rechner am Pin 7 des Joystick¬ 
ports keine 5-Volt Spannung. Dies 
ist jedoch mit einer simplen 
Blockbatterie sehr einfach und 
preiswert zu beheben. 

Man verbindet einfach die An¬ 
schlüsse einer männlichen und ei¬ 
ner weiblichen Joystickbuchse pa¬ 
rallel miteinander. Mit Ausnahme 
des Pins 7. Dieser wird an der 
Joystick- (also der männlichen) 
Buchse mit dem Pluspol der Batte¬ 
rie verbunden. Den Minuspol der 
Batterie verbindet man mit Pin 8 
einer der beiden Buchsen. 

Wenn man dieses selbstgebaute 
Adapter zwischen Joystick und 
Rechner schaltet, funktioniert nun 
das Dauerfeuer der Quickshot II- 
Joysticks. Da diese oft sehr billig 
angeboten werden, nehme ich an, 
daß sie auch oft benutzt werden. 


Atari-Maus am 
Schneider 

Wenn man nun die Pinbelegung 
der Atari ST-Maus betrachtet, fällt 
auf, daß auch diese eine 5-Volt 
Spannung erwartet. Leider ist die 
Abfrage in BASIC, mit JOY(O), et¬ 
was zu langsam, um eine realisti¬ 
sche Maussteuerung durchzufüh¬ 
ren. In Maschinensprache sollte 
dies jedoch möglich sein, (tb) 









































zum Schneider Sonderheft 


Folgende Listings finden Sie in unserem 
Software-Service. Sparen Sie sich das eintippen. 


Die Themen: 


\\\ V\rt\WW.'-V 


S\ 


New York 
Der Grafikmacher 
Wordprocessor 
Spriteeditor 
Hintergrund-Uhr 
Banner 
Struk-List 
Wordprocessor II 
Optimizer 
Mineralien 
Skypolt 

Zeichen-Generator 
D-List v*, 

Kalender n 

Maussteuerung 
Rekursion in BASIC 
»GEM« GDM 
Apfelmännchen 
Labeldrucker 
Maze 
Hyperplot 
Bild/Tel. 

Grafikprocessor 


Über 

200 Kilobyte 

für nur 

49.— Diskette (3”-Disk) 

45.— Cassette 

23 Superprogramme 

für nur 

49.— Diskette (3”-Disk) 
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